Pascal News 23a i« a supplenent, to plu^ th« 
len^theMn-s ^ap between US originating 23 and 24. Readers 
will note that it* contents are quite different fron those 
of previous editions. There is a shift of emphasis fro« 
natters o-f concern at leading edge University level, to 
those of concern to producers and users of inexpensive 
standardised products. 

That shift has been wholly dictated by the content 
of Material subnitted for publication. Whether it is a 
tenporary «ide-step or a permanent change, will also be 
decided by contributors ( to future editions ). PU6{UK) 
IS the servant of you the subscribers and as such, will 
publish na-terial originating fro« any section of the user 
connunity . 

Ue are all indebted to each contributor but Tony 
Heyes's generosity in offering his Bibliography suite of 
pro-jraws for refinenent through the wediuM of PN is 
particularly appreciated. Constructive critiques are 
uelcofie. 

There is a widening of the user base and an overdue 
deployftent of resources to that end, evidenced by the 
conpleNentary nature of articles fron widely differing 
sources. Read on and judge for yourselves. Although you 
will find that 23a is pitched at quite a different level 
fron that of your usual expectations of PN, I sincerely 
hope that you will welcofie it as a stop-gap until 24 
becones available fron Rick, Andy, and Co. 

The following is offered as an illustration of the 
scene which pro«pted the production of a supplement . 

Intrigued by advertising which referred to " nere 
hunans ",1 went along to the personal conputer show at 
the Barbican on September 12th. 

Inagine the disappointment at failing to find anything 
innovative or even nildly interesting. Discovered that with 
a single exception, exhibitors did not know whether 
stanviard Pascal was inplenented on the machines offered 
to the public. Hore than one of those asked, replied 
" Yes, it's called UDCS or something like that ". At one 
stand, sponsored by British Petroleum, the .Department of 
Trade and Industry, the Council for Educational Technology, 
and others , an ■e:<pert' merely looked blank and suggested 
that I ask someone else. 'Someone Else'' replied " Ue are 
only interested in things for use in Education". At the 



National Computing Centre stand, another expert, when 
Mked if his stand offered any information about standard 
Pascal and its implementation or use in a microcomputer 
environment, replied " No, there is no demand '*, deftly 
followed by " Can I help you sir 1" to someone standing 
behind me. In some instances, the initial answer was 
"Yes", followed by misrepresentative flannel when a 
demonstration was requested. 

Het a guy who holds a powerful position in the 
largest education authority in Britain. He believes that 
BASIC is an "appropriate" language for the "mass" of 
young people who "won't bother" to become seriously 
interested in the technology. I should admit at this point, 
that had my first experience of a perception of machine 
Intelligence been through the medium of BASIC ( or COBOL, 
FORTRAN, etc. ), I might easily have joined the ranks of 
those who either "won't bother" or are suitably 
unimpressed by obscure combinations of hunches, guesses, 
and a dash of perceptual skill which only occasionally 
fail. 



And now for something different — 
1» To those of you who requested supply of back numbers, 
I regret that 1 still haven't found a solution to 
the very high direct and indirect costs of small 
numbers of reprints. Even when you are willing to 
cover all costs, there remains the burden of manual 
labour and time. Any ideas? 

2. PLEASE, if you must use purchase orders, include 

include subscription with it. Otherwise there will 
be a drowning in paperwork. 

3. I still havn't resolved the problem of how to service 

subscribers to PU6(USA). Unfortunately, if they are 
serviced out of local funds, the EFFECT ( whatever 
the intention ) is subsidisation of more prosperous 
PU6(USA) by barely solvent PU6(UK) and a detrimental 
effect on local service. 

in a similar vein, escalating costs necessitate 
an increase in the numbers of subscribers, or, an 
increase in subscription cost for '83. It is 
suggested that a subscription of 25 Pounds per 
annum for firms and institutions, with a personal 
subscription of half that amount, would be equitable. 



Uety, Late, rtew4 



23«d OcJtobe.lL '82 
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Jkz goad, aeia ^La : 
(a ) Jkai. ,ModncA4.oa of. 24 ■on now filog.^e'O'OAJtg. a^aMi, 
( ^ ) That 3 ui-UJ, ^zoeAJwe. a numJbe,t of, cofUjz^ of. back, 
■Li^ue^ of. Pfl, 3f LJ.OU dJA not tece^e aruj. &dAA.-LoiV6 
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IT. and M.I.S.S. 

One <^the aims of Infomutioii 
Technology Year and the Microelectronkt 
Education Programme it to involve 
ichoolchildren in the uae of 
nicrooomputert and related electronic 
devices. Tluere are the M.E.P., the AticnM 
in Schoob Scheme, cxhibitiaiis and evcBts 
throughout the year and beyond. It is, 
pcrhapc, fortunate that Mr Callaghan 
happened to be watching tdevision on the 
evening tiie programme "Now the Chips 
are Down" was broadcast and was spurred 
into action then, or we would probably 
find the propaganda even more frenetic 
dian that now being put out by the 
energetic Mr Baker, the pnphet of IT. 

Infonnation Technology is a curiously 
diffuse name for a Year. The official 
definition, "the aoquisitioa, processing, 
storage, dissemination and use of vocal, 
pictodal, textual and numerical 
information by a microelectronics>baaed 
combination of computing and 
telecommunications" appears to 
encompass moat of the activities of tbe 
avenge penoa, canqM eating and one or 
two otiher prooeases, although the uae of a 
oomputer is not oAn oootideml easential 
to the more basic of theae. 

So far u its involvement of 
schoolchildren is concerned, the puUidljr 
is de c idedly shrill, the Minister's aim 
being to have a computer in every 
aeooodary school by the end of the year 
and even to think about providing dMm 
forprimaiyaclioob. 

That ean be no aqpiment that young 
people must be aware of compiners and 
how to use them, but h doea aecsn possible 
that the present blaze of publicity tends to 
obscure,ifae point that computers are a 
means, not an end. There is also die 
question of how the micros are to be used 
inschools. 

According to the fifth edition of the 
Candse Qiford Dictionary (now, 
admittedly, modified), a oomputer is **a 
calculator - an dectrooic calculating 
machine" - an unfortunate deacfipdon, 
a^eo too literally by at leatt some of those 
responsible for introducing youngsters to 



computing, widi the result that the school 
micro it 6fveik given to the senior maths 
teacher to guard with his life, presumably 
on the grounds that computers arc 
electronically mathematical and possess no 
relevance to any other subject. 

In other schools, the computer is treated 
as a kind of totem, and the pupils are 
taught "Computer Studies". As a subject, 
computing (meaning programming) is a 
singularly einpty one, ui4ess dte pupil 
learning it intoKis to become a 
programmer. A computer is an aid to the 
process in which it is used - in this 
instance, learning - and an element of 
transparency to the uter nther than an 
obscuring of the subject by undue 
attention to the oomputer must be the aim. 

Qearly, an overnight transformadon, 
after which every teacher would be using a 
micro as to dbe manner bora, is hardly 
feaubk. But, until the school micro (or 
one of its terminals or even a micro owned 
by a pupil or teacher) can be used 
naturally, as is a dictionary or pocket 
calculator or a video recoider, it will 
dominate the learning process. Utmost 
priority should be given to teachers fipom 
all disdplines, from hooae economia to 
athletica, to use the computer at aa aid, 
rather than at a distraction, so that pu;^t 
11^0 are not to specialize in science or 
engineering can tee that it is of ad vanuge 
to them to be at ease with computers, but 
no more than that.. 

The Inner London Education Authority 
it aware of these problems and it educating 
teactaen in the uae of oomputcn to that, 
even Ifaou^ there nay be only one micro 
or terminal in die daaarooB, the pupilt 
will learn the phoe of a oomputer by, to 
uae, ILEA'S word, "osmosis". However. 
tfacK is evidence aplenty that education 
authorities in other areas are either 
hypnotized or revolted by the new 
equqmient and, accotdingiy, either 
•Bidaine it or pass it to the school 
computer fiuatic to impreas people with. 

In ahon, a oomputer is a useful tool, but 
(hat it all it is: it can help or it can 
daateroualy hinder leaniag. and only dw 
education <rf teachers in its natural uae at 
an aid can decide which. 



ProEascal 



is a native-code Pascal compiler for Z80-based microcomputers. It is designed to run under 
CP/M or CDOS, in a memory area of at least 48K RAM The minimum disc storage required is two 120K drives. 

Pro Pascal was produced by Prospero Software of London, England, and released in October 198 1. The range of machines on which 

it is currently running includes:- 

Apple+Softcard, Clenlo Conqueror, Comart Conununicator, Cromemco, Digico Prince, Fdtron Compulady, Gemini, 
Hewlett-Packard 125, Kontron Psi-80, Nascom 3, NEC PC8000, North Star Horizcm & Advantage, Pet+Softbox, 
RML 380Z, Sharp MZ80B, Superbrain, TdeVideo, Vector MZ, Xerox 820, ZSog MCZ 

Pro Pascal is a complete implementation of the recently published BSI/ISO Standard for Pascal, with just two restrictions: conformant 
array parameters are not included, and files may not be ddined within structured- or pointo- types. A number of important extensions 
have beoi added to the language, making Pro Pascal suitaUe for a wide range of appfications in the (xofesaonal, business, scientific or 
educational sectors. 



Standard features 



Datatypes: 



integer 


range -2 147483647 to +2147483647 




(4 bytes) 


real 


7-digit precision, range E-38toE+38 




(4 bytes) 


char 


ASCII 128-character set(l byte) 


boolean 


false, true (1 byte) 


enumerated 


up to 256 constants ( 1 byte) 


subranges 


including 1- and 2-byte integers 


arrays 


any number of dimensions 


records 


including variant records 


sets 


up to 1 28 elements (16 bytes) 


pointers 


(2 bytes) 


files 


text and noiHext 



Extensions 

Datatypes: 

stringin] 

longreal 
Statements: 



dynamic-length strings 
(1 to 255 bytes) 
16-digit precision, range 
E -308toE+308(8bytes) 



S tate me u ts: 

asagnment 
procedure call 

GOTO Cuicluding jumps out of Mocks) 
compound (BEGIN . . . END) 
IF. ..THEN. ..ELSE... 

CASE 

REPEAT... UNTIL... 
WHILE... DO... 
FOR . . . TO/DOWNTO . . . DO . . . 
WITH. ..DO... 

Operators: 

arithm^ 
logical 
comparison 
set 

Procedures and finielioas: 



CASE... OTHERWISE 
Adffitkmal procechocs: 

delete, insert, str (string handling) 
assign, dose, erase (CP/M file interface) 
update, sedc (random-access file handling) 
chain, putccxnm, getcomm (prqgram chaining) 
inove(assigiMneiit withouttypecheddng) 
AddkkmalfuaGdoiist 

concat, copy, length, pos (string handling) 
fstat (does this CP/M file exist?) 
cstat (has'a key been pressed?) 
memavail (how much dynamic storage left?) 
rand (random number generator) 



SEGMENT (as weU as PROGRAM) 
COMMON (as wdl as YAR) 
EXUBRNAL (as weU as FORWARD) 
Lexical enhanccmenU: 



-I- - • / DIV MOD 
AND OR NOT 

< = > <= <> > = 
+ - • IN 



Source file inserts ({$ I filename}) 

Identifiers containing underscore ( ) 

Hex OMistants (e.g. OlFFH) 
Longreal constants (e.g. 1X)D0) 



l»-ocedure/function declarations (fully recursive) 
value, V AR, procedural and functional parameters 
Standard procedures 

reset, rewrite, get, put 

read, readln, write, wiitein, page 

new, dispose, pack, uiqxick 

Standard functions: 

abs, sqr, trunc, round, ord, chr 
pred, succ, odd, eof, coin 
sin, cos, exp. In, sqrt, arctan 



AdvanUfC Nonh Sur: Nonh Sur Cooiiaiien 

A|iple:AnileCon|iuur 

ciAA. UumBnoo: i^nNMnKO 

CP/M:Di|iulRacHdi 

Pa: Cooiniodare Bwinas MacNnet 

SoAcard : Micnaoft Canumo' PndiiGii 

Superbrain: Imenec Dau Systam 

TdeVideo: TdeVidaoSyitam 

ZaO: Ziloc Corporaiian 



Date, : 

Pa^cat (/>!»e44 Q^oup. (U.X)f 

PO Box 52, 

PyinneL^f 

IRAxLcLLe^ex. HAS 37C 

ax. 

7eA.: 01 866 3816 

1982 : £9^00. 

1983 : OnjdAjjAjduxLU - £72-50 . 

OrvaJbUwUjan^' £25-00 . 



0 ejicto^e, £ 
3 attach, : 

■fLoft pwb'LijoatAjan, <in Pascal, flew^ ( at 
SufifiteMe/vt6 to PH. )» 



DIVISION OP IMFORIttTIOM TOCBHCHXXST * COMHITING 
Dtpanmtnt of Jndmty 

NATIONAL PHYSICAL LABORATORY 

Teddington Middlesex TWII OLW 

T«lm 262344 Tdtgrnm Suriiylab Taddlnglon 

T«lmlNiw01-9773222«(l 3976 



Your rafvftno* 

:.- Hick Hughes 

Tjucal Users Group (UK) OwrataraiMe 

'.ZhetlandteX 

Dm 13 Naj. 1982 

Siietland SE2 9JV 



:far Nick 



Oangratulations for getting PUa(UE) off the ground again. I enclose 
i contribution, labels for those having encpiired about the Pascal 
validation suite , and a notice about the Standard* Could you ask HIO 
to change their policy statement on the back cover to refer to ISO 
7135 rather than Jensen and Wirth? 

Canceming the question of the transmission of Faaoal via the GET 
telesoftware system, I now understand that this le poesihle. 



Yours sincerely 
BHIAII WICHHANN 



UlC 
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Pascal - an effective language Standard 



B A Wichmann. 6/S/82 

Article formed the basis of piece In 
Computer Weekly by Philip Hunter. 11th Feb 19' >. pageU 

Over the last few years, the programming language Pascal t,. s grown In popularity 
very greatly. It Is widely used for teaching in Universities, is available on most 
micro-processors and main-frames as well. In fact. Pascal Is one of the few 
languages that form a bridge between microprocessor systems and the 
main-frame world. 

Until recently, there has been one drawback to Pascal as a general purpose 
software tool. The definition of the language was not very precise and In 
consequence, the porubility of Pascal programs was problematic. The British 
Stendards lnstituUon(BSI> set up a group under Or Tony Addyman to produce a 
standard definition of the language. This was later superseded by an ISO group 
also under Tony Addyman. Last October. ISO agreed to the standardization of 
Pascal, and after editorial work on the document, BSI published the Standard 
In February ol this year (BS 6192). 

What does this mean lor users of Pascal? The portability of Pascal programs 
should be much improved provided suppliers Implement the Standard and users 
write their programs to conform to the Standard. One might think that the position 
with Pascal is no different from that of COBOL or FORTRAN and yet portability 
problems arise with these languages. There are several reasons for believing that 
Pascal Is different: 

1. The Pascal standard is more comprehensive than that of 
COBOL or FORTRAN. For Instance, the COBOL and FORTRAN 
standards do not require that an Invalid program Is rejected 
by a compiler. The Standard for these languages Is just a 
definition of a language rather than a set of requirements for 
a compiler. This is clearly not very satisfactory since we all 
write Incorrect programs on occasions. 

2. The Pascal Standard is simple and devoid of a multitude of 
options, if the language has lots of options, then program 
portability Is reduced because a program may not be valid 
without a specific option. COBOL has a large number 01 options 
and FORTFMN 77 has two major levels (essentially distinct 
languages) whereas Standard Pascal has Just one option, 
affecting only one part of the language. This option is to allow 
procedures to handle arrays whose sl«a varlaa from call to call. 
This option, level 1 Pascal, would allow Pascal programs to 
call FORTRAN routines In many systems. 

3. The Pascal test suite Is more searching than that of COBOL 
and FORTRAN. This Is essentially a consequence of the 
definition of the language. The National Physical Laboratory has 
been collaborating with the UnMralty of Tasmania on the 
construction of this suite for over two years. About 400 copies 
of the test suite have been sold worldwide. A new version of 
this suite has recently been issued to correspond to the new 
ISO Standard. Unlike the COBOL and FORTRAN test suites, the 
one for Pascal Includes Incorrect programs which must be 
rejected: ones to examine the error-handling capability of a 
compiler, and the 'quality* of an Implementation. The quality 
tests Indicate If there i« any small limit to the complexity of 
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programs that a system can handl* and alao aaaMaaa tha 

accuracy of real arithmetic. 

All the major components to make Pascal a good Standard are now available, 
that Is, a Standard definition and tests to verify conformance of a compiler to. 

the Standard. 

n standard and tests to check conformance to the Standard are not alone 
quite sufficient. The test procedures must be -used and results made known to 
those using Pascal compilers. This can be achieved by Independent testing of 
compilers which is currently being Investigated by BSI tHemel Hempstead). BSI 
have a wealth of expeMence with testing other goods but this Is their first venture 
Into computer software. For this reason, both NPL and NCC are assisting B8I 
in this important development. 

The last step In tl)ls process Is to encourage users to request a Standard 
compiler from the suppliers and for suppliers to meet that demand. As a 
contribution to this last step. NPL held a conference on this topic with Its 
collaborators. Professor Arthur Sale from the Untverslty Of Tasmania addressed 
the conference making It an International event. The other key speakers were 
John Charter from 881 who described how a validation aervlce run by BSI would 
work. Professor Jim Welsh from UktlST who described how the Standard can be 
Implemented and Lyndon Morgan from NCC who described a guide written to 
support the test procedures. Also Barry Byrne, from ICL explained how the 
provision of a standard compiler for Pascal is advantageous In both marketing 
and for Internal use. Mr Ken Thompson from the European Commission explained 
the usefulness of International standards within the Community and soma of the 
problems In their effective exploliatlon. 



This prograa contains five errora. often 
undateoted by aes«llere. can you apet thaait 



pxograa taeti 
oonat 

nil - 'O'l 
begin 

If nil • '0' then 

wrlteln( •NROM', ■fnll. .laJ) 

elae 

wrlteln( 'KZOar' ) 

end. 



Try It OA your ayetea and aoe hew wuqr enoca 
are detected. 



'4TATP * MOTTOJ ^atm vnod T**Toap • 'B 

■uBts « noxTo; ^ouuvo ttU 'V 

'(eranbe ^en) <> n um^^yxn m-j $ -f 

'(MOM pea a eea a • er «) ser^TViopT «" ee peen eq vwuao tt«« "e 

eooux 



The corrected prograa la: 
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prograa teat (output); 
oonat 

nlll « '0'; 
begin 

If nlll <> '0' then 

wrlteln( 'WRONG', nlll, 0.123) 
else 

Hrlteln( 'RIGHT' ) 

eixl. 



Uthougb thla teat la only an llluatration, it does show tha wide 
ranging oapabllltea of ourrent ooapllara. Tha raaulta of ooapllers 
teated ao far can be auaaarlaed thus: 



Coapller Errors Aoouraoy of Recovery fro« 

deteoted error aeasages last error 

A * 3 * 

B 2.5 2 3 

C 2 2 i 

D 1 2 1 

E 2.5 3 2 

F 3.5 3 3 

0 1.5 * 3 
H 5 « * 

1 3.5 1 2 



All the aarka are out of 5. The half aarked for detecting an error 
indloatea that the error aeeaage uaa oonfuaing enough for It to be 
unclear If the error waa properly detected. Naturally, the last two 
coluana are subjeotlve. 



June 1982 P^, "PASCAL PROCESSOR VALIDATION PROCEDURE" 

by 

DAVID BLTfTH, Standardisation Office, 
1 Introduction National Computing Centre 

Few Pascal users can be unaware of the recent publication 
of the British Standard for the language Which will 
shortly be adopted internationally. Many users have heard 
of the suite of validation programs, developed by the 
University of Tasmania and the National Physical 
Laboratory, which can be used to check on the standard- 
conformance of an implementation. This suite is readily 
available and any user who has a copy can use it to test 
his own compiler or interpreter. For those brave users 
who undertake such testing this article presents a brief 
guide t.o the steps involved and draws upon experience 
gained at NCC in a joint NPL/NCC/bsI project to develop 
and document the validation procedures. 



2 The Pascal Standard and Validation Suite 

The Pascal standard defines the language itself and the 
manner in which Pascal programs are to be handled by an 
implementation. The validation suite contains over 400 
test programs whose purpose is to check whether or not an 
implementation accepts the language as defined in the 
standard and whether or not programs which are accepted 
behave as the standard says they should. The standard and 
the validation suite have been developed in parallel with 
the result that the suite will provide an exceptionally 
strenuous test of any implementation. An implementation 
which performs well «nder test can be used with confidence 
in its conformance and reliability. 

The suite contains eight types of test program Which 
Investigate respectively, conformance, deviance, 
Implementation-defined features, implementation-dependent 
features, error handling conformance arrays, quality and 
extensions. These classes of tests are quite distinct and 
are used in characteristic ways. 

2.1 ConforiMnee Tests 

Conformance test {programs attempt to tiheck that an 
implementation provides those features required by the 
standard and that it does so in the manner nAiich the 
standard specifies. These programs are all correct 
standard Pascal . If the implementation conforms to the 
standard these programs all ccmplle and execute. If a 
conformance test program falls then it Is an Indication 
that the implementation does not conform to the 
standard . 

2.2 Deviance Tests 

Deviance test programs <4»eck vAiether 

(i) the implementation provides an extension of 
Pascal r 

1 



(ii) the implementation fails to check or limit in an 
appropriate manner some feature of Pascal; 
(ill) the implementation incorporates some common 
error . 

tb deviance test program is stands d Pascal. Each such 
program contains exactly on€ such eviation. VRien a 
deviance test is run the results are inspected for 
evidence that the implementation does in fact detect the 
deviation. If it does not then the implementation does 
not conform with the standard. 

2.3 Implementation-Defined Features 

The standard defines an implementation-defined feature 
as one v*iich may differ between implementations but 
which is defined for any particular processor. A 
conforming implementation must be accompanied by a 
document that provides a definition of all its 
implementation-defined features. The test programs for 
implementation-defined features are intended to show how 
these features are handled in any particular 
Implementation. If they aren't handled in the manner 
claimed then the implementation does not conform. 

2.4 Implementation- Dependent Features 

An implementation-dependent feature may differ between 
implementations and is not necessarily defined for any 
particular implementation. Here the implementor can 
either state in his documentation that use of such 
features is not reported or else have the Implementation 
Issue some diagnostic for which such a use Is 
encountered . The test programs in this area are 
designed to determine the behaviour of the 
implementation. The implementation conforms only if it 
behaves as claimed or reports implementation-dependent 
usages . 

2 . 5 Error-Handl Ing 

An error Is defined, in section 3.1 of the standard, to 
be a violation by a program of the requirements of the 
standard that the implementation is not obliged to 
detect. An implementation only fails to conform in 
respect of error-handling if it fails to [X'ocess an 
error in the manner claimed in the documentation. The 
error-handling tests each present the implementation 
with one error with the aim of determining exactly what 
the implementation does with It. 

2.6 Conformant Arrays 

An Implementation may conform with the standard at 
level-0 or at level-1. In plain terms it can either 
have conformant arrays or it can't. If conformant 
arrays are provided then all of the features specified 
for them must be provided according to the standard. 
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The conformant array tests are a collection of 
conformance, deviance, implementation-defined. 
Implementation-dependent, error-handling and quality 
tests designed to test the conformant array features in 
i.solation. 

2.7 Quality 

Many aspects of an Implementation are beyond the scop* 
of the standard, but it is still useful to investigate 
them. Quality tests explore these areas and 
Investigate I 

( i ) the limits on the size and ccnpiexity of programs 
imposed by the implementation 
(li) the amount of store needed to perform certain 
well-defined tasXs 
Clii) the ac/curacy of real arithmetic 
(iv) the meahingfulnesa of diagnostics for comnon types 
of error 

(v) the speed of the code produced. 
Quality teste often throw up some surprising results I 

2.8 Extensions 

Many Implementations offer extensions to the standard. 
The extension tests see whethcgr common estenslons (eg 

those approved by PUG) are implemented . 

Together the test programs provide* a very thorough test 
of an implementation. 



3 Using the Validation Suite 

3.1 Distribution Format 

The validation suite is distributed on 9 track magnetic 
tape with characteristics as follows) 

Recording density i 600 or 1600 bpl 
Recording mode t MRZI or PB 
Character code i ISO 646 or BBCDIC 
1200 bytes/block, 80 characters/record. 

A purchaser of the tape can specify «/hlch density, 
recording mode and character code he wants. 

There are 49 files on the tape . Three of these contain 
documentation. The rest contain the validation 
programs. 
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3.2 Media Conversion 



Users vAiose machines have tape drives should experience 
no significant problems in reading the distribution 
tape. Their only concern will be with lexical 
conversion if necessary. 

Users with floppy disc based systems need to do a media 
transciption to get the suite in a form in v^lch they 
can use it. This conversion can be tricky, and is 
almost always done on an ad hoc basis for the particular 
system concerned. 

3.3 Lexical Conversion 

There are two character sets to consider «*\en using the 
suite - the one used to encode the test programs, and 
the one used to represent "char-type" values on the 
target computer. 

Roughly speaking any consistent set of lexical 
substitutions can be made, but some may render specific 
lexical test programs, and some programs vAilch test the 
char type. Irrelevant in validation. 

Care is needed to ensure that lexical conversion is 
consistent throughout. This is particularly Important 
if media conversion affects (Character code 
representations . 

3.4 Integrity Checking 

Following media and lexical conversion it is advisable 
to check that no corruption has occurred. For this 
pui^pose a program called the Checktext program la 
supplied. It produces a 96-blt binary check pattern 
using an algorithm originally developed for use in data 
transmission (CCITT Rec. V.41) 

The Checktext program operates on a standardised 
Internal representation of the progam and will not be 
affected by legal lexical substitutions. Certain parts 
of the program may need customisation for use on 
particular systems and the source code Is marked to show 
where such changes should be made . 

The results of the Checktext program should be compared 
with standard results contained in the User Guide to the 
suite (supplied with the distribution tape) and if there Is 
any discrepancy then transcription has Introduced errors. 
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3.5 Checking Validation Suite Assumptions 

A validation suite must necessary make certain 
assumptions about the nature of the implementations 
whicTi it will be used to test. The Pascal validation 
suite assumes that 

* text files 

* dharacter-strlngs 

* the real-type 

* local files 

are all implemented, also that 

* lines up to 72 characters long can be accepted 

* lines up to 72 characters long may be output 

* the value of maxlnt Is > 32,000 

* the relative precision for reals is < 0.001 

* the characters need to encode the test programs are 
all accepted as distinct by the implementation 

* the "largest" procedure in the test suite is 
acceptedby the implementation (except for certain 
quality test procedures). 

A further implicit assumption is that the real arithmetic 
system is susceptible to investigation by certain types of 
method . 

The validation suite contains a program called the "Check 
Assumptions" program which enables the user to determine 
whether or mot the implementation violates any of the 
assuinptlons listed above. 



4 Planning and Running the Tests 

4.1 Planning is Important 

Testing an implementation Is not just a matter of running 
all the test programs. The teat suite is large and on some 
machines it is not possible to run all the teats without 
breaking tbe suite into batches. Further more close 
attention must be paid to ensure that the behaviour of the 
implementation is accurately recorded throughout the test 
procedure. Finally provision must be made to make it easy 
to re-run any particular test after preliminary 
interpretation of test results. 

Choice of the method of working can have a marked effect on 
the overall time taken to run the tests. There are two 
areas to consider. First some method must be chosen to 
extract test programs from the files \Aiich contain them. 
Second the organisation of the joiss which run the test 
programs must be decided. The User Ouide Illustrates three 
approaches for eatih of these methods whidi will cover most 
cases on a wide range of machines. 
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Some programs may prove to be rogues on certain 
implementations. There is no way of knowing in advance 
which programs will behave in this vray for any given 
implementation. The user should take care so that such 
programs do not cause the loss of accumulated test 
results. 

In any event some programs will nc .-d re-running because the 
results on the first run may have een inconclusive. The 
circumstances in vAilch a re-run ir need are given in the 
Guide . 



5 Reporting Results 

It is desirable to adhere to a standard form of presentation 
when reporting the results of a validation. This offers two 
main advantages. 

First, vAien a formal validation is being done, a standardised 
format reduces the risk of hidden bias and provides a concise 
statement of how an implementation has performed under test. 

Second the user community can more closely monitor the extent 
of conformance vrith the standard. 

The Guide specifies ten section headings for the standardised 
report i 

1 Processor Identification 

2 Test Conditions 

3 Conformance Test Results 

4 Deviance Test Results 

5 Error-Handling Test Results 

6 Implementation Defined Test Results 

7 Implementation- Dependent Test Results 

8 Level 1 Test Results 

9 Quality Test Results 
10 Extension Test Results 

Guidance on the content and presentation of these sections is 
Included and a sample validation report is included as an 
Appendix . 



6 Practical Use 

The present article offers only a brieic sketch of the 

validation procedure. At first sight it may look aomevAat 
daunting. In practice the key is attention to detail. 
The User Guide gives fairly detailed advice on 
transcription and test job organisation. and will be found 
helpful by most people undertaking tests of 
implementations. Once transcription and organisation have 
been sorted out the teats usually run smoothly. Carrying 
out a full test is a rewarding exercise %4iich offers many 
lessons to language implementors . It Is hoped that users 
and Implementors alike will use the test suite and help to 
promote rapid practical standardisation of Pascal. 
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OniverBity Park, 
Tel. 0602-56101 Ext. 3187 Nottlnghan. 

NG7 2RD. 

BI.IHD NOBILITY RESEARCH OHIT 

26th. April 1982. 



Dear Nick, 

Please find enclosed an up to date version of ny 
Pascal Bibliography. Naturally I would not expect any of the 
readers of Pascal News to have enough spare tine to type up these 
programs so I will gladly let then have tapes In return for 
postage and administrative costs. 



Finally as a self taught programiMr I would appreciate 
comments from readers particularly if anyone finds an example of 
where I have failed to make use of the facilities available 
withiQ. fcjxe lanquaqn. 

THE UNIVERSITY OF NOTTINOHAM 
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A Pascal Bibliography. 



by Tony Heyes 

Blind Mobility Research Unit, 
Department of Psychology, 
University of Nottingham. 
England. 



The Pascal Bibliography is a package of programs written in 

standard Pascal and should therefore be easily transported. It 

enables users to store references and to retrieve them either by 

AUTHOR name or by KEYWORD) or logical combinations of AUTHORS and 
KEYWORDS. The bibliography, is designed for human use} it uses 
very explicit prompts. 

Dealgn Philoaophy - 



The bibliography consists of a cbllection of ITEMS. Each 
ITEH takes the form of i- 

One line devoted to AUTHOR or ADDRESSEE names. 

Two lines devoted to TITLE or ADDRESS. 

Two lines devoted to LOCATION. 

DATE ITEH NUIIBER. 

Two lines devoted to KEYWORDS. 



For example t- 

HEYES A.D., FERRIS A. J. ,ORLOIfSKI R.J. 
COMPARISON BEIKEEtl TMO tIETHODS OF RESPONSE FOR 
AUDITORY LOCALISATION IN THE AZIMUTH PLANE. 
J. ACOST. SOC. AMER., 58| 1336-1339 

1975 260 

DEAFNESS , LOCALISATION , AUDI TORY DI SPLAYS 
STEREOPHONIC SOUNDS, KINAESTHESIS 



If ITEMS are addresses the convention is to store the 
address on the two lines of title. 



Foe example t- 

BL^GGS J.B. 

Hr.J.B.Bloggs,\13 Fishpond Rd. .XBeeston, 
Nottingham. \NG7 2R0.\U.K. 
Tel 0602-251234 

19B0 27 

ADDRESS, CIRCULATION LIST,XHAS CARD 

Note the use of the backslash I\l to indicate the start of a 
new line. Note also that additional information such as the 
telephone number can be stored on the location lines. Mote, 
finally, the date has little meaning in this context. 

Items may be located by running the program "bibout*. 

Itews may be APPENDED or CHANGED by running the program "bibin". 

Both programs are well supplied with prompts and are very sinqple 
to use. 

Since additions and changes require that the current 
DICTIONARY be recompiled and this takes time, the actual changes 
take place during the night. The instructions to implement the 
changes reside in a PENDING TRAY until the night time run. The 
user will remain unaware of this slight restriction unless he 
tries to locate an ITEM during the day on which the ITEM was 
loaded. 

llethftii of Use . 



The following assumes the use of the UNIX operating system. 
Login with your user narae, give your password, respond to the 
first systen prompt "%" with "cd bib", ie. change directory to 
bib". In answer to the next system prompt, *%" , you may select 
any one of the programs from within the package. 
These are 

a) "bibin" to enter new items or to chanoe 

an ITEM. 

b) "bibout" to search the bibliography for 

an lTEt4. 

c) "outdict" to produce a hard copy of the 

current DICTIONARY. 
<J) cat scratch llpr" to output a hard copy of the 

SCRATCH FILE. 
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NEW USERS SHOULD ASK IF THEY MAY HAVE ACCESS 
TO AM ESTABLISHED BIBLIOGRAPHY AND THEN TRY 
USING "bibout" TO LOCATE ITEMS OF INTEREST. 



To logout respond to the system prompt "%" by typing "control Z". 



Xbfi PfQflcans. 
a) "bibin" 

The opening prompt allows the selection of one of the 
following options 

APPEND 

The prompts should be sufficiently explicit, but note :- 

(1) Authors and keywords should be separated by commas. 
Since they ace used in the dictionary they should not spill 
over the end of a line. They oan be any 'length but only 
the first 20 characters are significant. 

(2) The terminal will probably be set to produce lower case 
letters. The program will automatically convert them to 
upper case. If you wish to override this, begin each line 
of text with a backslash (M. 

(3) The date must be a single integer e.g. 1980. 

(4) If addresses are to be stored use the two title lines, 
close pack but indecate new lines with a backslash (M. 

(5) A personal local storage reference may be kept on the 
Second location line. It should be enclosed in square 
brackets: e.g. (BM7601 means that a copy of this ITEII is in 
the BH library, entry number 760. 

CHANGE 

Answer the prompts but please take note of the following s- 

1) You must know in advance the ITEM number of the ITEMS 
you require to change. 

2) You have to retrieve the ITEMS from the bibliography so 
CHANGE is relatively slow; be patient. It saves time, if 
you are changing more than one ITEM to make the changes in 
numerical order of ITEM number. 

3) You retrieve the ITEM to be changed from the 
bibliography, the changed ITEM goes into the PENDING TRAY. 
If you change the same ITEM more than once in a single day 
only the last version will survive. 

SPECIAL FACILITY 

This option moves the contents of the SCRATCH file into the 
PENDING tray. It can be used for moving ITEMS from one 
bibliography to another. Since SCRATCH is a text file, ITEMS 
may be changed using an editor and then loaded back into the 
PENDING tray. (Clever stuff 1 1). 
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b) "bibout" 

The computer will count the ITEMS in the bibliography and then 
offer the option of producing a HARD COPY of the dictionary or 
doing a SEARCH for ttrhs. 

SEARCH 

You may either search by NUHBER orr aore usually by uaing the 

DICTIONAjtY. 

YOU may opt to send the results either to the TERMINAL or to 
the SCRATCH PILE for subsiquent printing. 
SEARCH by NUMBER 

The search is terminated by asking to search for item number 
zero 10]. 

A block of ITEMS my be seached for by asking to search for 
item number minus one (-11 . You will then be asked for the 
lowest and the highest item numbers of the block. 
SEARCH by DICTIO«ARY 

You will be asked' for a word i.e. an AUTHOR name or a KEYNORD. 
The computer will look this up in the DICTIONARY and likt the 
ITEM numbers of all ITEMS containing this word in their AUTHOR 
or KEYWORD string. If you are doing a single word search 
answer the next prompt with a full stop l.i, and then the 
instruction to LOOK UP. If, however, it is a multiple word 
search give tne nest word. Once again th» corresponding ITEM 
number list will be printed out. 

The answer to the prompt 'AND, OR. or NOT" enables you to 
combine the current ITEM number list with the previous ITEM 
number list. For instance i- 

AND Only numbers present in both lls^s are 
retained. 

OR All numbers from both lists are retained. 

NOT Numbers present in the current list are 
deleted from the previous list. 
A new current list is printed out showing the results of the 
selection. The search sequence nay be continued for any 
number of logiacl combinations of words. At any time a search 
for the ITEMS in the current list nay be initiated by giving a 
full atop (.). After which you may either LOOK UP the 
selected ITEMS or, if you have made a mistake in your list 
combinations simply RESTART. There is one special word, 
namely ***, this word will match all the dictionary. 



c> "outdict" 

No prompts and no option, simply type 'outdict' in answer to 
the system prompt *%* to obtain a hard copy of the current 

DICTIONARY. 

Note, you must have first prepared a copy of the DICTIONARY by 
running the appropiate HARD COPY option of 'bibout". 
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d) 'opr scratch" 



This program is run to obtain the printed output from 
'bibout', provided the option had been chosen to send the 
output to the SCRATCH FILE. 

No prompts and no options, simply type "opr scratch" in answer 
to the system prompt "%" to obtain a hard copy of the contents 

of the SCRATCH FILE. 

N.B. If you would like to list the SCRATCH FILE to the 
terminal to check the contents then run "cat scratch*. 
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The following notes outline the steps the Inpleaentet should take 
in order to establish a new bibliography. After this groundwork, 
the user can use the shell commands bibln , blbout , and outdlet 
to build and manipulate the bibliography. 

1. The bibliography system requires 6 wockfiles named bl to 
b6. The recommended practice is for the user to devote a 
directory to the bibliography, say 'usec/bib*. The 
workf iles can be created easily using the cat conand. B.9 

cat > bl 'Z 

File b3 requires a link named scratch. This can be created 

by the command - 

In b3 scratch 

2. b6 is used as a temporary scratch file during the 
overnight run. It grows to be as large as bl. If there is 
insufficient room on the user's disc b6 may be coerced on 
to another disc. 

3. The bib directory must contain the following shell 

commands t - 

bibin Blbin.out bl b2 b3 b4 bS 

blbout Bibout.out bl b2 b3 b4 bS 

blbupdate Blbupdate.out bl b2 b3 b4 bS b6 

outdict (Ipr b4;cm b4; >b4)t 

4. Pinallyt an entry must be made in the UNIX table 
'crontab' so that bibupdate will be executed during the 
night:. 
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^cograM BlbinCinput,output,bank,dict,accatch,dll8t,PendlngTray) 1 

(• To ADO, CHANGE or REHOVE items, 

instructions left in a PendingTray file 'pending* , 

actual changes made by running "Bibupdate.p' *) 

(* written by Tony Heyes, Blind Mobility Researjh Unit, 

Department of Psychology, The University, 

Hottinghaa, U.K. •) 

label 10} 

const LineLn > 70; 
RowLn > 20j 
HiTag - lOOOOi 
NonDate ~ -lOSSt 

type string - packed array (L.LineLn] of char; 
Item - record 

authors, titlel,title2, 
placel ,place2 : string; 
date s integer; 

keyl,key2 : string 
end; 

word - packed array 11.. 20] of char; 
row - array [l..RowLnl of integer; 
die " record 

name : word; 

numbers : row; 

cont : boolean 

end; 

Tagltem - record 

tag : integer; 
entry : item 
end; 

var empty, entry : item; 
bank s file of item; 

PendingTray, TempPendingTray s file of Taglten; 
dlist, scratch : text; 
diet : file of die; 
TagEntry : Taglten; 

ch,AppendOption,ChangeOption,HainOption,iielpOption,SpecialOption > char; 
chge : boolean; 
a,n,nn,count t integer; 

procedure InlChar (var ch : char); 

(* to read the first character of a word typed into the terminal *) 
begin 

ch input"; 

while not (ch in I 'A* .. 'a ' , 'a' . . 'i' 1 ) do 
begin (* skips along until first character found *) 
get (input); 
if eoln( input) 
then 
begin 
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writelni 

writeCERRORi character required .... •) 
end; 
ch :» input' 
end) 

while not eoln(input) do (* skips over rest of line *) 
getdnpuj:) 
end; (* oC InlChar *) 

procedure Inlint (var int i integer) ; 

(* to read an integer and not cause a fatal error if a character is giveh 
var ch t char; 

a.Ordzero i integer; 

NegPound i boolean i 
begin 

repeat (• skips alfng until integer is found *) 
get (Input); 
if eoln( input) 
ttien 

begin 

writeln; 

writeC^RItORi digit required .... •) 
end; 
ch I** input* 
until ch in t •-','+', '0* .. '9' J ; 
if ch-'-' 
then 
begin 

NegPound :<• true; 
get(input) ; 
ch :> input* 

end 
else 
begin 

NegPound i> false; 
if ch-'+' 
then 
begin 

get (input) ; 
ch I- input' 

end 

end; 
a :■ 0; 

Ordzero i« ord( '0') ; 

repeat 

a •» 10*a-('ord(ch)-OrdZero; 
get (input) ; 
ch input* 
until not (ch in t'O'..'9'J); 

while not eoln( input) do (• skips over rest of line •) 

get (input) ; 
if NegPound 
then 

int -a 
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else 

int i- a 
end; (• of Inlint *) 

procedure VDDinString(var str : string); 
(* to input from terninal *) 

var i,n : integer; 

ch t char; 

Al leaps < boolean; 
begin 

n i> 0; 

AllCaps t- true; 
repeat 

n t- n-fl; 

read(ch) ; 

if (n-1) and (ch-' •) 

then 

n i- 0; 
if (n-1) and (ch-'\') 

then 

begin (* defeat automatic shift with '\' *) 
AllCaps I- false; 
n I- 0 
end; 
if nOO 
then 
begin 

if AllCaps 
then 

if ch in ('a'..'z'J 
then 

ch :« chr(ocu(ch) -32) ; 

6tr(n] :- ch 

cnu 

until coin (input) j 
tor i:"ii+l to LineLn do 
Btrti) s- • • 
end; (* of VDUinString *) 

procedure ScratohlnStr (var str : string); 
(* input from file scratch *) 
var n,i i integer; 

ch « char; 
begin 

if not eof (scratch) 
then 
begin 

n :« 0; 
repeat 

read(scratch,ch) ; 
until (ch-*:*) or (eof (scratch)) ; 
while (not eoln (scratch) ) do 
begin 
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read(8cratch,ch) t 
n :■ n+lj 
stctn] :> ch; 
end; 
if n-t-K-LlncLn 
then 

for li-n+l to LlneLn do 
stcli) I- • 

end 

end» <* of SccatcblnStr *) 
function ScratHoldsItems : booleani 

(* to inspect the SCRATCH FILE and check that ITEHS are conplete *) 
var count, LineNo : integer; 

FaultFound,HeadingError,Ne9Found i boolean} 
procedure CheckLlne; 
var CharCount : integer; 

LineTooLon9,BadLine t booleM; 
begin 

LineMo t- LlneNo -t- 1; 
CharCount 1; 
BadLine false; 
LlneTooL.ong f false; 
get(scratch) ; 

while (not eoln (scratch) > and (CharCount < LineLn ••■ 9 > do 
begin 

get(scratch) ; 

CharCount :» CharCount + 1; 

if (CharCount - 9) and (scratch* <> •»') then BadLine «- true; 
end; 

if CharCount < 9 then BadLine i- true; 
while not eoln (scratch) do 

begin 

get( scratch) ; 

if scratch' <> ' • then LlneTooLong i> true 

end; 

if BadLine then 
begin 

FauItFound i> true; 

writelnCLine'.LineHo t 4,' bad line '•<•• missing.') 

end; 

if LlneTooLong then 
begin 

FauItFound s- true; 

writelnCLine'.LlneNo t 4,' overflow.') 

end 

end; (* of CheckLlne *) 
begin 

LineMo t" 0} 
HeadingError false; 
FaultFouna :> false; 
IlegFound : > false; 
writeln; 

wtiteln( 'SCRATCH FILE CHECK in progress.'); 



CO 
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writeln; 

while not eof(8cratch) and not HeadingError dp 

begin 
repeat 
get(8cratch) ; 
If not eof (scratch) then 

If eoln(scratch) then LineNo :> LlneNo ■•■ 1 
until (eof (scratch)) or (scratch" - •-'); 
if scratch'^ ■ •"-* then NegFound s" true; 
LineNo i" LineNo 1; 
If eof (scratch) then 

begin 

If not NegFound then (* no ITEHS present *) 
begin 

HeadingError >• true; 

writeln ('SCRATCH does not contain ITEMS. '« 
end 

end 

else 

begin 

while not eoln(scratch) do get(scratch> ; 
for count :> 1 to 5 do CheckLlne; 

LineNo LineNo * It 
get(scratch) ; 

while (not eoln (scratch) ) and 

not (scratch* in ['l'..'9'l) do get(scratch) ; 
while (not eoln (scratch) ) and 

not (scratch" ' ') do get(scratch) ; 
while (not eoln(scratch) ) and 

not (scratch* in CI'. .'9'!) do get(8cratch) ; 
If eoln(scratch) then 

begin (* two numbers not present *) 
FauItFound :> true; 

wrlteln( 'Line' , LineNo i 4,' two Integers not found.') 
end 
else 

while not eoln(8cratch) do get(scratch) ; 
for count 1 to 2 do CheckLlne; 
end. 
end; 

if FauItFound then 
begin 
writeln; 

writeln( 'Errors In SCRATCH use editor to correct, then try again, 
writeln; 

ScratHoldsItefflS false 
end 

else If not HeadingError then ScratHoldsItems true; 
reset (scratch) 
end; (* of ScratHoldsItems *) 

procedure empt; (* to empty an ITEM *) 
var NoChar : string; 
a : integer; 
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ch i cbaxi 
begin 

HoCbarll) <- • 
NoChart2l s- ■ 
NoCharOl s- • 'i 
for at>4 to LineLn do 

NoCbar (a) t- ^.'i 
wltb enpty do 
begin 

authors t> NoChari 
tit lei t- NoCbar} 
title2 t- NoCbar I 
placel s- HoCbar> 
place2 (> NoCbar; 
date t> NonDatet 
keyl t> NoCbar; 
key 2 t" NoCbar 
end; 

for a:-2 to 9 do 
begin 

case a o£ 



2: 


ch 


S" 




; 


3s 


ch 


:■ 




) 


4: 


ch 


8" 


•n' 


; 


5s 


ch 




•P 


; 


6s 


ch 


$■ 


't' 


; 


7s 


ch 


«■ 


tyl 


1 


8s 


cb 


S", 




1 


9s 


ch 


S" 







end; (* of case *) 
empty. authors (aJ s- ch 

end 

end; (• of enpt *) 

procedure OutRecord (entry : item; n s integer); 
(* to write to the terminal *) 

var a s Integer; 
begin 

for a:-l to 7 do 

wcite( ' 1') ; 

wtiteln; 
with entry do 
begin 

wtiteln(authors) > 
wri.teln(titlel) ; 
W[iteln(title2) ; 
writeln(placel) ; 
writeln(place2) ; 

wrlteln(date:8, ' Item nunber s',n s5>; 

writeln(keyl) ; 

writeln(key2) 

end 

end; (* of OutRecord *) 
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procedure GetReference(n s integer); 

(* to count through bank to find an ITEM *) 

begin 

if n<count 
then 
begin 

reset (bank) ; 
count s" 1 
end; 

while (count < n) and (not eof(bank)) do 
begin 

count :- count+1; 
get(bank) 
end; 
if eof(bank) 
then 
begin 

writeln; 

wcitelnC You have only got', count -1,' Items.'); 

writeln; 

goto 10 

end 
else 

OutRecord (bank^,n) 
end; (* of GetReference *) 

procedure change(var entry t item; m s integer); 
(* to change the mtb. ITEM •) 
var line s integer; 

DMOption,Line()ption s char; 
str : string; 
begin 

writeln; 
writeln; 
repeat 

writeCDo you wish to DELETE or MODIFY .... •); 
InlCbar (DtlOption) . 
until OflOption in I 'D' , 'd' , 'H' , 'm' J ; 
if Dt40ption in I'D','d'] 
then 
begin 
empt; 

entry s" empty 

end 
else 

begin 

writeln; 

writelnCYou may REPLACE a line,'); 

writelnCmove to the NEXT line,'); 

writelnCor SKIP to the end of the item. '); 

writeln; 

line s> 0; 

repeat 

line :• line-i-1; 
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with entry do 
caae line of 

It str t- authors; 
2: str :» titleli 
3: str s« title2; 
4: str s" placel) 
5! str :» place2; 
6: ; 

7: str :« Iceylj 
8: str :> key2 
end; (* of case *) 
if line<>6 
then 
begin 

writeln; 
writeln(8tr) ; 
writeln(output) ; 
repeat 

write (•replace, NEXT line oc SKIP to end .... •); 

InlChar (LineOption) 

until LineOption in ( 'R' , 'r • , 'N' , 'n' , 'S' , 's' 1 ; 

writeln; 

if LineOption in I'R'r't'l 
then 
begin 

writelnCType replaceaent line iMt 
writeln; 

VDUinStringCstr); 
with entry do 
case line of 
1: authors str; 
2: titlel :« str; 
3: title2 t- str; 
4 1 placel t- str; 
S: place2 i> str; 
7: keyl >•> str; 
8t key2 t- otr 
end; (* of case *) 
end 

end 
else 
begin 

writeln ('Date Sentry. date t4>; 

writeln; 

repeat 

write ('REPLACE, NEXT line or SKIP to end •)» 

InlChar (LineOption) 
until LineOption in ( 'R' , ' r ' , 'N' , 'n' , 'S* , 's' 1 ; 
if LineOption in t'R'.'r'l 

then 
begin 

writelnCType replacement date '); 
writeC: •); 
Inlint (entry. date) 
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end; 

end 

until ((line'8) or (LineOption in rs','s'])>; 
end; 
writeln; 

writelnC 'Modified item reads t '); 

writeln; 

OutRecord (entry, m) ; 
writeln; 
end; (* of change *) 

begin (* MAIN PROGRAM *) 
count HiTag; 
n 1; 

reset (PendingTray) ; 
rewrite (TenpPendingTray) ; 
while not eof (PendingTray) do 

begin (* copy down existing contents of file 'PendingTray' *) 
TenipPendingTray* :■ PendingTray"; 
put(TempPendingTray) ; 
get (PendingTray) 
end; 

rewrite (PendingTray) ; 

reset (TempPendingTray) ; 

while not eof (TempPendingTray) do 

begin (* copy back 'PendingTray' and count contents *) 
PendingTray* :■ TempPendingTray"; 
put (PendingTray) ; 
get (TenpPendingTray) ; 
n :"n+l 
end; 

rewrite(TempPendingTray) ; 

repeat 

writeln; 
repeat 

writeCDo you wish to APPEND, to CHAtlGE, '); 
writelnCto use the SPECIAL facility, '); 
writeCor to FINISH .... '); 
InlChar (MainOption) 
until HainOption in I 'A' , 'a' , 'C , 'c' , 'S' , 's' , 'F' , ' f ' 1 ; 

(* MainOptiono S is a special facility, 

used for loading from 'scratch' to 'PendingTray' *) 

case MainOption of 

'A', 'a': (* TO APPEND *) 
begin 

writeln; 
repeat 

writeCDo you need help lYES or NOJ .... •); 

InlChar (HelpOption) 
until HelpOption in CY' , 'y' , 'N' , 'n' J ; 
if HelpOption in CY'.'y'l 
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then 
begin 

wrlteln; 

writeln( 'NOTES. ') I 

wclte(*(a) Authors and keywords separated') f 

writelnC, by a comma ■,".'); 

write (*(b) To remove the automatic conversion to '); 

writelnC 'upper case letters'); 

write (" begin a line of text with')| 

writelnC a backslash '\'.')t 

write (*(c) Date must be a single integer nunberMf 
writelnC eg. 1980.'); 

write ("(d) i£ addresses are to be entered use the two*); 

writelnC title lines;'); 
write (■ close pack but indicate new'); 
writeln(' lines liith a backslash "X".'); 
write(*(e) A personal local storage reference'); 
writelnC may be kept on the 2nd. location line')} 
wcite(> but should be enclosed in square brackets;'); 
writelnC for examplei IBH360).') 
end; 

repeat 

writeln; • 
writelnCNew itent- •); 
wrlteln; 

for ai>l to 7 ^o 

writeC 1'); 

wrlteln; 
with entry do 

begin 

wrlteln( 'Line of author names, or nans of addressee i' ); 

VDUinString (authors) > 

writeln( 'First line of title or address ;■); 
VOUinString(tltlel); 

writeln ('Second line of title or address i'); 
VDUinString (title2) I 

writeln( 'First line of reference location t'); 
VDUinString (placel) t 

wrlteln ( 'Second line of reference location i') 

VDUinString (place2) ; 

writelnCDate - ^ust the year - :•); 
Inllnt(date); 

writeln( 'First line of keywords i'); 
VDUinString (keyl) ; 

wrlteln ( 'Second line of keywords t'); 
VDUinString (key2); 
end; 
writeln; 

OutRecord (entry, n) ; 
repeat 

wrlteln; 

repeat 

write{ 'Do you wish to make a change (YES or NOl .... • ); 

InlChar (ChangeOption) 
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until ChangeOption in t'V ,'y','N','n'); 
if ChangeOption in ('Y','y'] 
th^n 
change (entry, n) 
until ChangeOption in CN','n'); 
if entry. date <> NonOate 
then 
begin 

TagBntry.tag HlTag; 

TagBntry. entry := entry; 

PendingTray* :« TagEntry; 

put (PendingTtay) ; 

n :» n+1 
end 
else 
begin 

writeln; 

writelnCltem withdrawn.'); 
writeln 
end; 
writeln; 
repeat 

write ( 'Do you wish to append more items (YES or NO! .... • ); 
InlChar (AppendOpti-on) 
until AppendOption in I'Y','y','H','n'l; 
until AppendOption in ['N',l.n'] 
end; (* of Append option *) 

•C','c': (* TO CHANGE *) 
begin; 

wrlteln; 
repeat 

write ('Do you need help (YES or NOl .... '); 

InlChar (HelpOption) 
until HelpOption in ( 'Y' , 'y' , 'N' , 'n' 1 ; 
if HelpOption in ('Y','y'] 

then 
begin 

writeln; 

writeln ( 'You MUST know the ITEM NUMBERS of the ITEMS you wish to change.* ); 
writeln( 'If you do not, leave this program and run "bibout" to find them.' ); 
writeln( 'Changes do not take place immediately, they stay in the FENDING' ); 
writelnCtray until the "update" program Is run.'); 

writeln( 'if an ITEM is changed more than once only the last version survives. 'J 

end; 

repeat 

10: writeln; 
chge :■ false; 

writeln( 'Type 0 if no ITEM needs changing, otherwise type'); 
write ('the ITEM number... '); 
Inllnt(nn); 
if nn<0 
then 
begin 
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writeln; 

writelnCNo negative numbered ITEMS') 
end; 
if nn > 0 
then 
begin 
writeln; 

GetRe£erence(nn) ; 
If not eof(bank) 
then 
begin 
entry t> bank"; 
repeat 
writeln; 
repeat 

writeCDo you wish to change this Item (YES or NO) .... •); 

InlChar (ChangeOption) 
until ChangeOption in I 'Y* , 'y* , 'N' , 'n* ) I 
if ChangeOption in I'y>,'y<] 
then 
begin 
change (entty^nn) ; 
chge >■ true 
end 

until ChangeOption in I'N'f'n'lf 
TagEntry.tag nn; 
TagEntry. entry i> entry; 

If chge 
then 
begin 

PendingTcay' TagBntry; 
put (PandingTray) ; 
n I" n-t-1 
end 

end 
end; 
writeln; 
until nn - 0 
end; (* of Change option *) 

'S','s*: (* To move from text file 'scratch' to 'PendingTray' *) 

begin 

writeln; 

writeCThis option moves the contents of the '); 
wrlteln( 'SCRATCH file into the PENDING tray.'); 
writeCit can be used to copy selected ITEMS from one'); 
wrltelnC bibliography to another.'); 
writeCOR, it can be used to reinstate ITEtlS '); 
writeln( 'which have been changed by the editor.'); 
writeln; 
repeat 
writeln; 

e<'Do you wish these items to be APPENDED, REINSTATED or HO ACTION ') 
InlChar (SpecialOptlon) 



J3 



Apr 25 18*12 1982; adh Bibin.p (written Apr 19 09i55 1982) Page 13 



until SpecialOptlon in I 'A' , 'a' , 'N' , 'n' , 'R' ,' r' ) ; 
if SpecialOptlon in ( 'A' ,'a' ,'R' ,'r') 
then 
begin 

reset (scratch) ; 
writeln; 

(* now check that scratch holds ITBHS in 
the correct form *) 
if (not eof (scratch) ) and 
ScratBoldsIteras 
then 
begin 

while not eof (scratch) do 
begin 
with entry do 
begin 

ScratchlnStr (authors) ; 
Scratchlnstr(tltlel) ; 
ScratchlnStr (title2) ; 
Scratchlnstr(placel) ; 
ScratchInStr(place2) ; 
cead(acrBtch,date> ; 
repeat 

read(scratch,ch) 
until ch - '!'; 
readln(scratch, TagEntry. tag) ; 
writeln(n,' Dated ',date,' Item number ', TagEntry.tag) ; 

ScratchlnStr (keyl) ; 
ScratchlnStr (key2) ; 
end; 

if SpecialOptlon in ('A','a'l then 
TagEntry.tag HlTag; 
TagEntry. entry i» entry; 
PendingTray" :« TagEntry; 
put (PendingTray) ; 
n n+1; 

if not eof(scratch) 
then 
get(scratch} 
end; 

rewrite (scratch) 
end 

end 

end; (* of Special option *) 

'F','f: begin 

writeln; 

wrlteln( 'Number of ITEMS now in Pending Tray '',n-l 
writeln 

end 

end (* of case "HainOption" *> 
until MainOption in C'F','f'J 
end. (* enci of program Bibin.p *) 
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program B ibout ( input , output , bank , aict , scratch , dlist ,PenollngTray> i 

(* To call down items from the bibliography *) 

(* written by Tony Heyes, Blind Mobility Research Unit, 

Department of Psychology, The University, 

Nottingham, U.K.. *) 

label 10; 



const rineLn - 70: 
RowZ.n •■20; 
HlTag • 10000; 
LincsPerPage > 64 ; 
VDUIiinesPerPage ■ 24; 

type string " packed array Il..LineIin] o£ char; 
iter.) » record 

authors, titlAl,title2, 
placel ,placc'2 : string; 
date : integer; 

keyl,key2 : string 
end; 

word " packed array II. .20] of char; 
row - array [L.RowLnl of integer; 
die — record 

name : word; 

numbers < row; 

cont : boolean 

enu; 

link - 'DicLine; 
DicLine >• record 

val t Integer; 

next : link 
enu; 



var FileABSigned : boolean; 

bankfPendingTray t file of item; 
dlist,Addre6SFile, scratch t text; 
diet : file of die; 

FirstL.ink,secondLink,ThirdLink,ptl,here t link; 
low, high, n,tlunSoFar, 

LineNo,AduLineMo, count, Topltem,NFronDict,Nuail t integer; 
device, FileStyle,MainOpt,NDOption,LogieAction t char; 

procedure InlChnr (var ch : char); 

(* to read the first character of a word typed into the terminal *) 

begin 

ch :» input"; 

while not (ch in ( 'A' .. 'S' , 'a' .. •*•]) do 
begin 

(* skips along until first character found *) 
get ( input) ; 
if eoln( input) 
then 
begin 
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writeln; 

write ('ERROR: character required .... ') 
end; 
ch :• input^ 
end; 

while not eoln(input) do (* skips over rest of line *) 
get (input) 
end; (* of inlChar .*) 

procedure Inlint (var f : text; var int : integer); 

(* to read an integer and not cause a fatal error if a character is give 

var ch : char; 

a.OrdZero : integer; 

NegFound : boolean; 
begin 

repeat (* skips along until integer is found *) 
get(£) ; 
if eoln(f) 
then 
begin 

writeln; 

writeCERROR: digit required .... '} 

end; 
ch :- f 
until ch in I '-•,' + ', '0' .. 'g'l ; 
if ch-.'-' 
then 
begin 

NegFound :- true; 
get(f) ; 
ch f" 

end 
else 
begin 

NegFound :■ false; 
if ch-'+' 
then 
begin 

get(f) ; 
ch »- f* 

end 

end; 
a 0; 

OcdZero :• ord('O'); 
repeat 

a 10*a-ford(ch)-OrdZero; 
getCf) ; 
ch I- f* 
until not (ch in CO'.. '9')); 

while not eoln(f) cio (* skips over rest of line *) 

getCf ) » 
if t;cc,roun<l 
then 
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int t" -a 
else 

int I" a 

nd; (* of Inlrnt *) 

rocedure SkiproEndOf Page (FageLinea : Integer; 

•var where t text) i 

t.g in 

while LineNo < PageLines do 
begin 

writeln(whece) ; 
Linetio t- LlneNoi-l 
end; 
LineNo 0 
id; (* of SkipToEnciOfPagc *) 

rocedure CetRefCn : Integer; destination < char); 

ir a.CharCount ,LineInQuestlon,NO£ComiMS,v;ordLength : integer; 

line I string; 

DoubleSpace , InBracke ts , KeepUextCap, 
soc)cthing,i:eepAllCaps,woops : boolean; 
ch,LastCh s char; 
gin 
if n<count 
then 
begin 

rcs«t(bank) ; 
count :> 1 
eno; 

while (count < n) and (not eo£(bank)) do 

begin 

count := count+l; 
gct(bank) 
end; 
it eof(bank) 
then 
begin 

writeln; 

writelnC You have only got',count -1,' Itens.M; 

writeln; 
goto 10 

end 

with bank" do 
begin 

ca&e destination of 

'T','t': (* Output to terminal *) 
begin 

if (VDULinesPecPage-LlneNo < 9) 

then 

SkipToEndOf Page (VOULlncsPer Page , output ) 
for a:'l to 7 do 

wrlteC 1«) ; 



] 
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writeln; 

writeln(author8) I 
wrlteln(tltlel) ; 
writeln(title2) ; 
writeln(placel) ; 
writeln(place2) ; 

writeln(date:8, ' Item number i',n sS); 

writeln(keyl) ; 
writeln(key2) ; 
LineUo :• LincNo + 9 
end; (* of 'T' *) 
'I','i'» (• Output to scratch file *) 
begin 

if LinesPerPage-LineMo < 9 
then 

SkipToEndOf Page (LinesPerPage, scratch) ; 
for a;=l to 7 do 

write(scratch, ■- 1') ; 

writeln(scratch, ' •) r 

writeln (scratch, 'names : • , authors) ; 
writeln!scratch, 'Details s • ,titlel) ; 
writeln(Bcratch, ' :',title2); 
writeln(scratch, ' :',placel); 
writeln(scratch, • :',place2); 
writeln(6cratch,date:14,' Item number: 'rn :5) 
writeln(scratch, 'Keywords: ' ,keyl) ; 
writeln(scratch, ' :',key2); 
LineNo :« LinetJo + 9 
end; (* of 'I* *) 
'E','e': (* Output to scratch file in envelope label format. 
Only for addresses. *) 

begin 

writeln (AddressFile) ; 
AddLinetlo AdoLineHo +1; 
woops :■= true; 

for LineInQuestion:"l to 2 do 
begin 

DoubleSpace :- false; 

LastCh :- ':•; (* Initail value *) 

CharCount t> 0; 

writeln (AddressPlle) ; 

AddLineMo :> AddLlneNo *lt 

write (AddresBPlla,* ■); 

if LineInQuestlon>l 

then 
line :> tltlel 

else 
line :> title2; 
while (CharCount<LlneLn) and not DoubleSpace ui 

begin 

CharCount :> CharCount+1; 
ch <■ llne(CharCountl ; 
h£ ch-'\' 
then 



6 15:20 1982s adh Blbout.p (written Jun 23 lit SB 1982) Page 5 



begin 

woops t* falBCf 
writelnCAddiesBPile) i 
AddLineNo t- AddLineNo +1} 
wiite(Addce8sFile,' •) 
end 
else 

write(AddressFile,cb) I 
DoubleSpace s- (cb-* •) and (LaatCh-* ')f 
LastCh tf ch 
end 
end( 

while (AddLineNo mod 8) <> 0 do 
begin 

writeln.(Addre88File) i 
AddLineNo i- AddLineHo * 1 
endt I 
if woops 
then 
begin 
writeln; 
writeln; 

wrlteCAn attempt to output a ie£ereoce'>j 

wcitelnC in addcesa format. ■)! 

writeln; 
writeln; 

wrlte( 'Adaressea must be close-packed on the two' ); 

writelnC title 'lines. ') > 
writeln( 'Use the backslash "\" as line' separator. * )» 

writeln; 

rewrite (scratch) ; 
FileAssigned s- false; 
goto 10 
end 

end; {* of 'E' *) 
'R'»'r'» {• Output in format for wordprocesaor NROFF •) 
begin (* firstly the author line *) 
writelnCscratch, ' .nr') ; 
(* this is an NROFF macro *> 

write(scratch,'\: ') ; (* bold lettering command 
DoubleSpace :« false; 
KeepAllCaps false; 
woops false; 

LastCh >-•:•; (* initial value *> 

CharCount 0; 
NOf Commas f 0; 
if authors(l]-'\' 
then 
begin 

KeepAllCaps true; 
CharCount j- CharCount+1 
end; 

while (CharCount<LineLn) and not DoubleSi<acc tie 
begin 
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CharCount i- CharCount-*-!; 
ch t> authors (CharCount! ; 
if ch-',' 

then 

NOf Commas !■ NOf Commas-i-1 ; 
DoubleSpace <- (ch-' ') and (LastCh-* '); 
LastCh i- ch 
end; 

DoubleSpace >- false; 
LastCh :- 'i'; 
CharCount i- 0; 

while (CharCoant<LineLn) and not DoubleSpace do 
begin 

CharCount s- CharCount-fl; 
ch I- authors [CharCount] ; 

if (ch in ('A'..'Z')) aqd (LastCh in (•A'..<Z 

and not KeepAllCaps 
then 

write(8cratch,chr ( (ord(ch> -t-32) ) ) 
else 
if ch-',' 
then 
begin 
if NOfConnaB-l 
then 

'write(scr4tch,' « ') 
else 

write(scratch, ' , '); 
NOfComuas :- NOfCoraBas-1 
end 
else 

write (scratch, ch) ; 
DoubleSpace (ch-' ■) and (LastCh-' '); 
LastCh :> ch 
end; 

writeln(scratch,' ('.date i 4,')\i'); 
for LlnelnQuestion :«1 to 4 do 
begin (* title and place lines *) 

KeepNextCap true; 
KeepAllCaps :> false; 
case LinelnQuestion of 
1: line :- titlel; 
2: begin 

line :- tltle2; 
KeepNextCap false 
end; 

3: line placel; 
4: begin 

line :•■ place2; 

CharCount 0; 

InDrackets false; 

repeat 

CharCount CharCount-fl ; 
if line[CharCount]-' ( • 
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then 

InBcacketa t- tcuei 
if inBracketB 

then 

if lineCCbarCountl-'I • 

then 
begin 

linelChacCountl i> ■ 'i 
InBcacketa i- falae 
end; 
if InBracketB 
then 

linetChacCountl :« ' ' 
until ChacCount'LineLn 
end 

endt (* of case LinelnQueation *) 

ChacCount t" LineLni 

repeat 

CharCount :> CharCount-1 

until (ChacCount-1) or dinetCharCountlO' ')> 
if CharCount<LineLn 
then 

lineCCharCount-t-ll i- M'l (* a silly character *; 

(* placed at tha and of the chacactac stirng *) 

WocdLength f Oj 
if CharCount>l 
then 
repeat 

CharCount s> CharCount-li 
if linetCharCountlO' ' 
then 

begin , 
if line [CharCount] in l*A*..'2M 
then 

WordLength i* HordLength+l 

end 
else 
begin 

if not (WordLength in 12,31) 

then 

line(CharCountl :■■ '~' i 
(* another silly char fills up spaces 
before words which kc^ caps. *) 

WordLength 0 
end 

until CharCount'l; 
CharCount 0; 
something false; 
if line(l)-'\« 
then 

begin 

Keep&llCaps s» true; 
CharCount t- CharCount+l 
end I 



ch 1- ':'} (* initial value *) 
while .(CharCount < LineLn) and 

(linelCharCount+U <> MM do 

bc«gin 

CharCount CharCount-t'li 
LastCh I- ch; 
ch line[Ct< rCountl ; 
if not ((Last..n in ('"',' M) and 
(ch in ('-',• M)) 
then 
begin 

if (ch in {■A<..'ZM) and not KeepNextCap 
then 

ch chr((ord(ch)02)); 
if ch in (•A'..'ZM 
then 

KeepNextCap false; 
if ch-'\' 
then 

woops :•> true; (* its an address *) 
if ch-'-' 
then 
begin 
ch I- ■ '; 

if (LinelnQuestion in (3,4)) 
then 

KeepHextCap t- true 
end; 

if (ch in CI'. .'9']) 
then 

KeepNextCap i- false; 
if (chO' M and (chOM') 
then 

sonething true; 
if sonething 
then 

write (scratch, ch) 

end 

end; 
if something 
then 

writeln(scratch) 
end; 

if voopB 
then 
begin 
writeln; 
wciteln; 

writeC'An attempt to output addresses inM; 

writelnC reference format. M; 

writeln; 

writeln; 

rewrite(AddressFile) ; 
tileAssigned :> false; 
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goto 10 
end 

end (* of "R" *) 
end (* of case destination *) 

end 

end; I* ot GetRef *1 

procedure ReVlind(var ptr : link); 

var p,q,pt : link; 
begin 

P «- Ptrj 
pt :- nil; 
while ponil do 
begin 

new(q) ; 

q'.val z« p'.val; 
q'.next :« pt; 
pt := q; 
here :« p; 
p :« p'.next; 
dispose (here) 
end J 
ptr i> pt 
end; (* of Rewind *) 

procedure GetDict(n t integer; var ptc i link); 

var a : integer; 

p : link; 
OldEntry : die; 
more : boolean; 
begin 

if m < iiiTag 
then 
begin 

rcBet(dict) ; 
a I- 1; 
while a<in do 
begin 

OldEntry :» diet"; 
get(dict) ; 

if OldEntry. cont'false 
then 

a a-fl 

end'; 
writeln; 

writeln(dict*.nane) > 
ptr nil; 
repeat 

for a:«l to RowLn do 

if dict'.numberstalOO 
then 

begin 
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new(p) I 

p'.val <> dict'.numberslal ; 
p^.next <> ptr; 
ptr I- p 
end; 

store :> dict'tcont; 

9et(dict) ; 
until not more; 
Rewind (ptr) 

end 
else 
begin 

ptr IB nil; 

for ai^oplten downto 1 do 
begin 

new(p) ; 

p'.val := a; 

p'.next :« ptr; 

ptr i> p 
end 

end 

end; (* of GetDict *) 

procedure join(vitr pi tlink; p2 i link; which i char); 

var continue t boolean; 

q»qPfPtl,pt2,pt3 i link; 
begin 

ptl !- pi; 

pt2 t» p2; 

continue (ptiOnil) and (pt2<>nil) ; 
qp J" nil; 
case which of 

•A', 'a' I (* AND •) 

begin 

while continue do 
begin 

if ptl*.val>pt2*.val 
then 
begin 
pt3 := ptl; 
ptl pt2; 
pt2 t- pt3 
end; 

if pt2*.val>ptl*.val 
then 
begin 
ptl s" ptl*. next; 
continue :> ptlonil 
end 
else 

if ptl*.val"pt2".val 

then 
begin 



) 
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new(q) ; 

q'.val :- ptl*.val| 
q'.next qpj 
qp q; 

ptl :« ptl'.next; 
pt2 :» pt2''.next; 

continue :- (ptlOnil) and (pt2<>nll) 
end 

end 

end; (* of AND *) 
• 0' ,'o' s (* OR *) 

begin 
begin 

while continue do 
begin 

if ptl".val>pt2*.val 
then 
begin 
pt3 ptl; 
ptl :- pt2; 
pt2 s- pt3 
end; 

if ptl".val<pt2".val 
then 
begin 
new(q) ; 

q*.val ptl'.val; 
q'.next t" qpi 
qp :- q; 

ptl := ptl". next; 
continue <■ ptlOnll 

end 
else 

if ptl".val-pt2".val 

then 
begin 
new(q) ; 

q'.val J- ptl*. vail 
q'.next :■ qp; 

qp !- q; 

ptl ptl ".next; 
pt2 :• pt2".next; 

continue (ptlOnil) and (pt2<>nil) 
end 

end; 
if ptl-nil 
then 

ptl pt2; 
while ptlOnil do 
begin 

new(q) ; 

q'.val :» ptl".val; 
q*.next !- qp; 
qp s- q; 

ro 
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ptl :> ptl '.next 

end 

end 

end; (• of OR •) 
•H'.'n': (• NOT *) 

begin 

while continue do 
begin 

if ptl*.val>pt2''.val 
then 
begin 
pt2 i" pt2''.next; 
continue :■> pt2<>nil 
end 
else 

if ptl''.val<pt2''.val 
then 
begin 
new(q) ; 

q*.val :- ptl'.val; 
q'.next qp; 
qp :- q; 

ptl :•> ptl '.next; 
continue :> ptlOnil 
end 
else 

if ptl".val"pt2".val 
then 
begin 
ptl ptl". next; 
pt2 :•> pt2*.next; 

continue :> (ptlOnil) and (pt2<>nil) 
end 

end; 

while ptlOnil do 
begin 

new(q) ; 

q'.val I" ptl'.val; 
q'.next :- qp; 
qp :- q; 

ptl :- ptl ".next 

end 

end (* of HOT *) 
ena; (* of case *) 
KeVIinu(qp) ; 
pi := qp 
end; (* of join *) 

procedure OutLlst(ptr : link; var aa : integer); 

vac p : link; 
becjin 

P := ptr; 

sa := 0; 
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writeln; 
while pOnll do 
begin 

aa :« aa+1; 
If aa mod 13-0 
then 

writeln (p'.val :5) 
else 

write (p'.val i5); 
p :- p'*.next 

end j 
writeln; 
writeln 
end J (* of OutList *) 

procedure DictList(var where < text) i 
<* TO LIST DICTIONARY •) 

const NoOfLlnes > 64; 

WordsPerLine - 4; (* Change constants to suit page size *) 
(* See also line 70U •) 

type list - array(1..3841 of word; 

var num,i i integer; 
OldEnfcry : die; 
HordLlst t list; 
begin 

reset (diet) ; 
rewrite(dlist) ; 
i t- Of 

while not eof(diet) do 
begin 

tot numi-1 to Ho0fLine8*HordsPerLine do 
begin 

OldEntry i- diet*; 

while (dict''.cont>true)and(not cof(dict)) do 

get(diet); 
if not eof(dict) 

then 
begin 

wordListlnuml «- OldEntry. name; 

get(dict) 

' t li.tatlnum) s- ' 

" - ! < » SiXif Lines do 
• • ' '« .»'<'ttlI.ist(nuiiiJ,WordLi8tlHoOfLine8+nuinJ, 

r : 1 r 1 1 2M.oOfLines+numl ,WordLi8tI3*NoOfLine8+numl ) ; 
li t for norc words per line *) 

■ • « i.'l-ofLinc 
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write( 'Dictionary written to file.'); 

writelnC To obtain a hard copy run "outdict". •) j 
(* 'outdict' siaply prints out the file 'dlist*. *) 

writeln 
end; (* of DietList *) 

procedure TwoColS (var P,G j text); 

const rows "8; 

TwiceRows - 16 I 
cols - 40; 

type ChLink ■ "chstack; 
chstack - >ecord 

eh I char; 
next t ChLink 
end; 

lines " ar'rayd.. TwiceRows) of ChLinkr 

var pt.here j ChLink; 
lin,StartLin t lines; 
LineNorCharNo t integer; 
ch t chacf ' 

procedure reverse (var ptr i ChLink); 

var p#q,ptfduap i ChLink; 
begin 

p »- ptr; 
pt I" nil; 
while p <> nil do 
begin 

new(q) ; 

q'.eh I- p'.chi 
q'.next i> pt; 
pt t- qi 
dump !■ p; 

p I- p'.next; 
< dispose (dump) 
end; 
ptr t7 pt 
end; (* of reverse •) 

begin 

reset (P) ; 
if not eof (P) 
then 
begin 

page(G) ; 
writeln; 

writeln ('Output in two column "Xerox" label format.'); 
writeln 
end; 

while not eof (P) do 
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begin 

(* inark(hece) *) 
for LineNo 1 to 2*rows do 
begin 

StartLintLineNol :> nil; 
if not eof(F) then 
while not eoln(F) do 
begin 

read(F,ch) ; 

new(lin[LineNo] ) ; 

linlLineNol ".ch :- chj 

linlLineNo] '.next :> StartLin ( LineNo) f 

StartLinlLlneNo] i- llnlLineHol 
end; 
if not eof(F) 
then 

readln(F) ; 
reverseCStartLinlLineNol) ; 
end; 

for LineNo :> 1 to rows do 
begin 

CharHo :- 0; 
pt :« StartLin(LineHol ; 
while (pt <> nil) and (CharNo < cols) do 
begin 

write(G,pt*.ch) ; 
here :- pt; 
pt :■ pt'.next; 
dispose (here) ; 
CharNo i> CharNo + 1 
end; 

pt StartLinlLlneNo -t- rows); 
if pt <> nil 
then 

while ChacNo < cola do 
begin 

write(G, ' '); 

CharNo t- CharNo -fl 
end; 

while pt <> nil do 
begin 

ch J" pt".ch; 
write(G>ch) ; 
here :- pt; 
pt s" pt'.next; 
dispose (here) 
end; 
writeln(G) 
end; 

(* release (here) *) 
end 

nii; (* of TwoCols *) 



-J 
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procedure GetFroiiDict(var FirstWord.NumWords : integer); 
var 

ch, action, option : char; 

n,ChCount,PointerNum,NumberFound : integer. 
name,signame : word; 
AllCaps : boolean; 
begin 

writeln; 

AllCaps true; 
ChCount 0; 

writeCEnter word required or [.] .... <); 
repeat 

read(ch) 
until oho* •; 
if ch-'\' 
then 
begin 

AllCaps :<■ false; 
read(ch) 
end; 
if ch-'.' 
then 

begin (* "action" *) 
while not eoln( input) do 

getdnput); 
repeat 

writeln; 

writeln( 'Do you wish to LOOK OP the selected string, tc ■:. :/: >; 
write( 'selection or to QUIT the dictionary .... 'i; 
InlChar (action) 
until action in I 'L' , '1' , 'R' , 'r' , '0' , 'q' .' 

end 
else 

begin (* word *) 
action !■ 'W'l 
repeat 

ChCount I- ChCount + 1; 
if ChCount > 1 

then 

read(ch); 
if AllCaps and (ch in ('a'..'!*]) 

then 

name(ChCount) t" chr(ord(ch) -32) 
else 

name I ChCount 1 ch 
until eoln(input) or (ChCount - 20) ; 
if not eoln( input) 
then 

readln; 
for ns-ChCount+l to 20 do 
nane(n) t" ' * 

end; 

if action in t'L',*l') 
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then 

ritstWocd -1 f* look np *) 
else 

if action in I'R*,*c*l 

then 

Pirs^Hocd t- -2 (• restart •} 
else 

if action in ['Q','?*] 
then 

FirstKord i- 0 (• quit *y 
else 

if naM»'*«* 

(* special word *) 
then 
begin 

writelni , 
writelnC*** KJ, ROIS •••■)} 
writelni 
repeat 

writef'ls this correct IXBS or HOI .... *)t 

InlCbar (<vtion) 
until option in I*Y*,'y*«*B*.*nM| 
if c^ion in [•X«/*y*]- 

then 

PirstNOrd t> BiTag 
else 

GetProiAict (FirstWOrd^HiMHords) 

end 
else 

begin (• a real word *) 
reset (diet) I 
HuBberPound 0| 
PointerHuB s> 0| 
writelni 

signane i« * *l 
while (nane >- signane) and not eof (diet) do 
begin 
if nane-signaae 
then 
begin 
wr iteln(dict' .naae) $ 
BiuberPound BuaberPoond+l 
end I 

while (dict'*.cont»trtte) do 
get (diet) I 

if (PointerHun > 0) and not eof (diet) 
then 
get(dict)i 
PointerBua s- PointerNu»fli 
for nx'l to ChCount do 
Bignanelnl s- dict'.naaelnl i 
for nt-ChCoiuit+l to 20 do 
signanelnl i<* * 'i 
endi 
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writeln; 

if NumberFoufld'O 
th«n 
begin 

writeln( *Nord not found in your dictionaryi try again. ' ) > 

wciteln; 

GetPromOict (FiratNord,Nuailfords) 
end 
else 
begin 
repeat 
if NuBbecFdund - 1 
then 

writeC 'Is this word correct [YES or NOl .... • ) 

else 

write( 'Are ALL these words required (yes or NOl .... ' ); 

InlChar (option) 
until option in C 'Y* ,'y' #'N' »'n' J i 
if option in PY','y'l 
then 
begin 

FirstHord :- PointerNun - NunberFound; 
Nunwords :■ Nunber Found 
end 
else 

GetFronDict (FifistWord, HunHor ds) 

end 

end 

endi . (• of GetProaOiet •) 

begin (• MAIM PROGRAM •) 
rewrite (scratch) i 
rewrite (AddressPile) i 
reset(bank) i 
count :■ HiTagi 
LineNo i> 0| 
AddLineHo i- 0| 
PileAssigned i> false i 
writelni 

writelnCTo retrieve ITEMS fro* the BIBLIOGRAPHY. •) i 
(• TO SEARCH BY AUTHORS and KBYHORDS *) 
writelni 
reset(dlist)i 
if dlist' - '-• 
then 

InlInt(dlist,TopItea) 
else 
begin 

Toplteo :» 0| 

writeln( 'Counting, please wait.')} 

writelni 

writelni 

while not oof (bank) do 

begin 
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Topltem J- Topltem +1» 
get (bank) 

end; 
cewrite(dlist) ; 

writeln(dlist, •"' .Topltem s 5) j 
writeln(dlist) ; 
writeln(dlist) ; 

writeln(dlist, 'Your DICTIONARY must first be compiled by running*)} 
writelnCdlist, • the HARD COPY option of • 'bibout' •.'); 

writeln(dlist) ; 

writeln(dlist) 
end; 

ritelnCThe BIBLIOGRAPHY currently holds *, Topltem,' ITEMS.'); 

epeat 
writeln; 
10: repeat 

writelnC 'Do you wish to obtain a HARD COPY of the current dictionary,' ) i 
write ('to SEARCH for items or to FINISH .... '); 
InlChar(MainOpt) 
until MainOpt in I 'H' ,'h' ,'S' ,'s' ,'P' ,'f ' J i 
writeln; 

if KainOpt in l'H','h'] 
then 
begin 

DictList(dlist) ) 
MalnOpt *F' 
end; 

if KainOpt In ('S',>b'] 
then 
begin 
repeat 

writeln; 

writelnCDo you wish to search by item HUIIBER*); 

writeCor by use of the DICTIONARY .... '); 

InlChar(NOOption) 
until HDOption in t 'N' , 'n' , 'D' , 'd' 1 ; 
writeln; 
repeat 

writeln; 

writeCOutput to TERtllNAL or to scratch FILE .... '); 

InlChar (device) 
until device in I 'I' ,'t' , 'P' , ' f ' , 's' , 's' ) ; 
writeln; 

if device in t'T','t') ' 
then 

FileStyle »- 'T'; 
if (device in I 'P' ,' f ' ,'S' ,'8' 1) and not FileAcsigncd 
then 

repeat 

writelnCIs the desired output'); 
write Can ITEM list,'); 

writelnC "the full item being given" ■); 
wrlteCa REFERENCE list,'); 

writelnC "only the reference part bein<j given" '); 
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wrlteCor an address list suitable' i; 
wciteC foe ENVELOPE addressing .... '); 
InlChar (FileStyle) ; 
FlleAssigned :• true 
until FileStyle in I 'I' , ' i' , 'R' , ' r ' , 'E' , 'e' ) ; 
if FileStyle in CR'.'r') 
then 

begin 

wi:iteln(scratch, ' .by 0'); (* NROFF commands *) 
writeln(scratch, ' .na' ) ; 
writeln(scratch, ' .sp 2'); 
writeln(scratch, ' .de nr'); 
writeln(scratch, ' .sp' ) ; 
writeln(scratch, ' .ne 6'); 
writeln(scratch, ' .ti -5'); 
writeln(scEatch, '..'); 
writeln(scratch, ' .ne 10'); 
writeln(8cratch, '\:Ref erences.V: ') ; 
writeln(scratch,.' .sp 2'); 
writeln(scratch,' .in Vs') 
end; 
writeln; 

case NDOptlon of 
•0','d' I begin 
writeln ( 'Words are looked up in '); 

writelnCthe dictionary and a list of reference numbers' ); 
writeln( 'containing the given word is shown on the terminal.' ); 
writeln; 

write( 'The special "word", I***] will match with all the words' ); 

writelnC in the dictionary.'); 

writeln; 

writeCLogical combination of '); 

writeln( 'author and keywords continue until you wish' ) ; ' 

writelnCto terminated the search.'); 

writeln; 

writeln( 'To terminate a search answer the prompt with a full stop {.].' ); 
writeln; 

repeat 
writeln; 

writelnCHew sequence.'); 

writeln; 
NumSoFar :<■ 0; 
(• mark(here) *) 
GetFromOict(NFromDict,HumU) ; 
if NFromDict > 0 (* a real word *) 
then 
begin 

GetDict (NFromDict, FirstLink) ; 
if Humw > 1 
then 
repeat 

NFromDict !■ NFromDict ■•■ 1; 
GetDict (NFromDict,SecondLink) ; 
join (FirstLink, SecondLink, '0' ) ; 
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NumH HimW - 1 
until NUMVI - If 
0utList(FiC8tLlnk,NiMSoFac) I 
while HFromDict > 0 do 
begin 

GetPcomOlCtCNPconOlctriluiiH) ; 

if NFcomDict > 0 (* a real word *) 

then 
begin 

GetDict(NPc6aDict,SecondLink) ; 
if NuaiH > 1 
then 
repeat 

NFromDlct (- HFronOict ••■ 1| 
GetDlct(NPr<»i>lct,Third];.ink) i 
join(SecondLink,TbirdLink, 'O') t 
NunH I- NUBH - 1 
until NUMM - 1| 

OutList(SecondLink,NumSoFar) ; 

repeat 

•«rite( 'AND, OR or NOT ? Ml 

InlChar (LogicAction) 
until LogicAction in ( 'A' ,*a' , 'O* /'o* > 
•H'.'n'lf 

j oin (PirstLink , EecondLink , LogicAction) ( 
OutLiBt (FirstLink , NunSoFar ) 
end 
end I 

if ((NunSoPar > 0) and (HPronDlct - -1)) 
then (• look up •) 
begin 
writelni 

wrifceln( 'Search in progress for NunSoPar i8, • Items'); 

writelni 

ptl t- FirstLink I 
while ptlonil do 
begin 

GetRef (ptl'.val.PileStyle) i 
here ptl| 
ptl <- ptl'.nexti 
dispose (here) 

' end; 

if FileStyle in I 'I' i' ,'R' ,'r' ,'E' ,'e' I 

then 
begin 
writelni 

writeln( 'ITEMS written to SCRATCH PILE,' )| 

wrlteln 
end; 

(* release (here) *) 

end; 

end 

until NFromDict«0 (* quit *) 
end; 
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'N',*n' : begin (* TO SEARCH BY NUMBER •) 

wrlteln; 

writelnClTEHS may be called by number.'); 
writelnCA whole block of ITEMS may be called;'); 
writeCto do this answer this prompt with'); 
writelnC minus one (-1).'); 
writeln; 

writeln( 'To quit: answer prompt with a zero (01. ■ ); 

repeat 
writeln; 

write( 'Number of ITEM to be referenced ' ); 

InllntCinputf n) ; 
writeln; 
if n - -1 
then 
begin 
writeln; 

writelnC 'To output a block of ITEMS.' 
writeln ( 'Give the LOW ITEM number ,then the HIGH number.' ); 

write ( 'LOVJ number .... '); 
InllntC input r low) ; 
write( 'HIGH number .... '); •' • 
InllntC input, high) I 
if (low-0) or (high-0) 
then 

begin (* an 'escape *) 
low I- 1| 
high 0| 
n i> 0 
end I 
if low <- high 
then 
begin 
writelni 

writeln( 'Search in progress') i 
writelni 

for n:Blow to high do 
GetRef (n.PileStyle) 
end 

end 
else 
if n > 0 
then 
begin 
writelni 

writeln( 'Search in progress.'); 
writeln; 

GetRef (n, FileStyle) 
end 
until H'O 

end 

end (* of case MDOption *) 

end 

until tSainOpt in I'P'.'f'J; 
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if FileStyle in CR'.'r'l 
then 
begin 

wciteln(sccatch, ' .in -5'); 
writeln; 

writeln( 'The output file "scratch" contains the references and the' )| 

writelnC 'instructions for the word processing program ''nroff".') 

writeln; 

wcitelnC 'An attempt has been made to reintroduce lower case letters.' ); 
writelnCTo obtain your output run. "nroff scratch'* ')| 
wr itelnr 

writelnC 'If all is not well edit scratch and run "nroff scratch" again 
wr iteln; 

wr iteln( 'When all is correct get the hard copy output by ')| 
wr iteln ( 'running "nroff scratch llpr". '>i 
wr iteln 
end; 

if PileStyle in ['E','e'l 
then 

TwoCols(AddressFile, scratch) t 
writeln; 
writeln; 

wr iteln ( 'FimSHED. • ) ; 
writeln 

jnd. (* of program Bibout.p *> 
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program Bibupdate(input, output, bank, diet, scratcn, 

dlist,PendingTray,TempBank> ; 
(* A non-interactive program which moves the contents of 'PendingTray' 
to the bibliography. Clever system's run this program at night. 
TempBank is made external because it grows to be as large as bank. 
Diagnostics are written to 'scratch'. 
Written by Tony Heyes, Blind Mobility Research ''nit. 
Department of Psychology, The University, 
Nottingham, U.K.. *) 



const LineLn • 70; 
RowLn - 20; 
heap » 200; 
HiTag - 10000; 
stack > SO; 
NonDate " -1066; 

type string « packed array (1.. LineLn] of char; 
item ■ record 

authors, titlel ,title2 , 
placel ,place2 : string; 
date : integer; 

keyl,key2 : string 
end; 

word - packed array (1..20] of char; 
row " array (l..RowLn] of integer; 
Tagltem - record 

tag : integer; 

entry : item 
end; 

point "CoreTagltem; 
CoreTaglten - record 

TagBntry < Taglten; 

next t point 
end; 

die ■ record 

name : word; 

numbers i row; 
cont : boolean 

end; 
link ■ 'dentry; 
dentry •• record 

dline : die; 
next : link 
end; 



var bank, TenipBank, addition : file of item; 
LastOne t item; 

PendingTray, correction : file of Tagltem; 
first, here, p,pt,newp : link; 
cf irst,now,ept,e,enewp : point; 
dlist, scratch : text; 
Ter.'ipDict,ciict : file of die; 

GotFromCore,dlistOt:,InitialBuild, continue, move, same t boolean; 
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n.TopItem ,in, core, reps, add, OldTotal : integeri 

pcoceuure FroinCore; 

vat p : link; 
begin 

writeln(8cratch, ' Fromcore')) 
rewrite(dict) ; 
GotFroniCor« true; 
p :« first ; 
while pOnil do 
begin 

diet' := p*.dline» 

put (diet) ; 

here pj 

p I" p'.next; 

dispose (here) 

end 

end; (* of FromCore *) 

procedure build(entry t itemm t Integer); 
(* TO BUILD THE DICTIOHARY *) 

vac str : string; 

NewEntry,01dEntry : die; 
1, let, line, i : integer; 

same, space , Air eadyHadrWordPoundtLastHocd . : boolean} 

begin 

for linet-1 to 3 do 
begin 

case line of 

Is str :- entry. authors; 
2: str i- entry. keyl; 
3t str t- entry. key2 
end; 

1 J- O; 

let I- 0; 

if not (Cstrtl)-' •)and(strI2I-' ')) 

then 

repeat (* not empty line *) 
let :- letn; 

Lastword I- (((strCletl-' ') and (strdct-fl]-' •)) 

or (let-LineLn-D) f 
wordPound i> ((atrCletla* * *> or LaatWord); 

if not HordPound 
then 
begin 

1 I- l-fl; 

if (1-1) and (atcdetl-* •) than 
1 I- 0 
elae 

begin 
if K21 then 

NewEntry.nametll t- atrtlet) 
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end 

end 
else 
begin 

for i:"l+l to 20 do 

KewEntry.namelil :« ' '; 
(* fill up with spaces *) 
if InitialBulld 
then 

begin (* first entry *) 
NewEntry.numbersIl] :• n; 
for i:>2 to RowLn do 

NewEntry.numbersIl] :> 0; 
NewEntry.cont :- false; 
new(p) ; 

p'.dline :• NewEntry; 
p'.next :» nil; 
first :• p; 
1 :- 0; 

InitialBuild i- false 
end 
else 
begin 

OldEntry s- first". dline; 
pt :» first; 

(* move pt past all words befdre the new entry *) 
while (pt" .nextOnil) and 
(NewEntry .name>-pt'' .next' .dline.name) do 
pt :•• pt*.next; 
OldEntry :« pt'.dline; 
same :• OldEntry. name-HewEntry. name; 
space 01dEntry.numbers(RowLnl-0; 
AlreadyHad :- false; 
if same then 
begin 

i I- RowLn; 

while OldEntry. numberslil • 0 do 

i :- i-1; 
if OldEntry.numbersdl - n then 

AlreadyHad :> true 
end; 

if not AlreadyHad then 

begin (* if keyword haa author name only one die 
if (same and (not apace)) ewrAjr 

then 
begin 

(* new entry already in diet but no space in the string *) 

OldEntry. cont :• true; 
pt'.dline :- OldEntry 
end; 

if same and space 
then 
begin 

(* new entry already in diet AND space in the number string *) 
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i I- Of 
repeat 
i «- i+1 
until OldEntry.nunbersIil-Oi 
OldEntry.numbersdl c- n; 
pt'.dline t- OldEntry 
end 
else 
begin 

(* a new word for the dictionary OR a repeat of an old word *) 

NewEntry. numbers (11 !■ ni 
NewEntry.cont :« false; 
for i:-2 to RowLn do 

NewEntry.nunbersCi] i- 0; 
new(newp) ; 

newp'.dline <■ NewEntryi 

if NewEntry. nane<fir8t .dline.name 

then 

begin (* new bead of the list 
newp'.next t- first; 
first :<■ newpf 
end 
else 

begin (• slot entry into list *) 
newp'.next pt'.next; 
pt'.next t- newp 

end 

end 

end; (* of AlreadyHad *) 
1 I- 0 

end 

end 

until LastWord 

end 

< nci; (* of build *) 

i. cocedure merge; 

(* to merge diet in core with existing diet on file *) 

vuc continue i boolean; 
jrjj i integer; 
NewEntry s die; 

ocgin 

writeln(scratch, ' Merge'); 
rewtite(TeinpDict) ; 
reset (diet); 

(* copy to scratch with additions *) 
pt :> first; 

continue (not eof(dict>> and (pt'.nextonll) ; 
while continue do 
begin 

if diet* .name<pt*. dline.name 
then 
begin 

(/I 
04 
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TempDict* :» diet"; 
put (TempDict) ; 
get(dict) ; 

continue :■■ not eof(dict) 
end; 

if diet*. name>pt*. dline.name 
then 
begin 

TempDict* :• pt'.dline; 

put (TempDict) ; 
here := pt; 
pt :" pt'.next; 
dispose (here) ; 
continue :« ptonil 
end; 

if diet*. name>pt*. dline.name 
then 
begin 

diet*. cent :» true; 
TempDict* diet*; 
put (TempDict) ; 
get(diet) ; 

continue :■> not eof(diet) 

end 

end; 

while not eof(dict) do 
begin 

TempDict* diet"; 
put (TempDict) ; 

get(dlct) 
end; 

while ptonil do 
begin 

TempDict* := pt*.dline; 
put (TempDict) ; 
here :« pt; 
pt :» pt'.next; 
dispose (here) 
end; 

rewrite (diet) ; 
reset (TempDict) ; 

(* copy back to diet and squeeze *) 
while not eof (TempDict) do 
begin 

MewEntry :<• TempDict*; 

if (NewEntry. numbers (RowLn) >0) or (NewEntry. cont'false) 
then 
begin 

diet* :» NewEntry; 
put (diet); 
get(TempDiet) 

end 
else 
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begin 

get(Tea^ict) t 
if not eo£(TeiapDict) 
then 
begin 

for jt>2 to RowLn do 

if NewEntry.numbersC jl-0 
then 
begin 

MewBntcy.nunberstj] t- TempDict'.nuaberstl] | 
for to RowLn-l do 

TempDicf.numbersI jj] i> TempDict'.nunbersI jj+ll 
TempDict*. numbers [RowLnl i» 0 

end I 

if TempDlct'.nuaibersIlI-C 

then 
begin 

NewEntry.cont i- false i 

get(TenpDict)» 

diet" (B NewEntryi 

put (diet) 
end 
else 
begin 

diet" NewEntryi 

put (diet) 
end 

end 

end 

end; 

rewrlte(TeiupDict) 
end; (* of merge *) 

l^cgln (* MAIN PROGRAM *) 
reset(PendingTray) ; 
reset (bank ) ; 
dllstOK I- false; 
rewrlte(6crateh> ; 
wrlteln(8cratch) ; 

wciteln(scratch,':'o new additions.'); 

writeln(scratch) ; 

GotFromCore false; 

corr 0; 

reps 0; 

add !• 0; 

Topi ten >■ 0; 

reset(dlist) ; 

if cllist* - '-• then dlistOK i- true; 
if cof (PendingTray) 
then 

begin 
if not dlistOK then 
v/hile not eof(bank) do 
begin 
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Topltem :> Toplten + If 
get(bank) 
end 

end 

else 

begin 

(* divide PendingTray into corrections and additions *) 
rewrite(correction) ; 
rewrite (additions) ; 
rewrite(dict) ; 
rewrite(scratch) ; 
dlistOK false; 
while not eof (PendingTray) do 
if PendlngTray''.tag<HlTag 
then 
begin 

wrlte(correetion, PendingTray") ; 
eorr t> corr^-l; 
get(PendlngTray) 

end 
else 
begin 

write (addition, PendingTray". entry) ; 
add :•> add-t-1; 
get (PendingTray) 
end; 

reset(correctlon) ; 

writeln(scratch, 'Corrections * ,eorr :5,' Additions ',add:5); 

while not eof (correction) do 
begin 

(* order correction into core in batches of 'stack' •> 

writeln(seratch,'To deal with corrections'); 
(* nark (now) *) 
n i- 1; 
new(e) ; 

e".TagEntry t> correction"; 
e".next nil; 
efirst e; 
get(correction) ; 

while (not eof (correction)) and (n<stack) do 
begin 

n I- n+1; 
new(enewp) ; 

enewp" .TagEntry !• correction"; 
if correction*. tag<efir8t* .TagEntry.tag 
then 

begin (* new head of list *) 

enewp".next efirst; 

efirst enewp 
end 
else 
begin 

(* move 'pointer ept to correct place, slot in new item *) 



V 
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ept t" efirst; 

while (ept'.nextonil) and 

(co[Eection*.ta9><>ept*. next*. TagEntry. tag) 

do 

ept :> ept*. next I 

if correction* .tag-ept* .TagEntry.tag 
then 

ept'.TagEntry :- correction* 
(* replace with later correction, this is why itens are aorted in this way *) 

else 
begin 

enewp*.next t> ept*. next} 
ept*. next enewp 
end 
end I 

get(cocrectlon) 
end; (* n>>stack or eof (correction) *) 
wrlte(8cratch, 'Corrections processed in ')| 
writeln (scratch, 'this batch ',n t5>i 
(* first batch of items from 'correction' now in core and ordered *) 

(* now read bank to TempBank making changes from core. 

Items are labelled for later extraction by making the date ■ NonDate. 
Replaceoent Itens are passed to join additions. *) 

write(8cratch, 'Copy bank to TempBank ....'); 
rewrite (TempBank) > 
reset(bank) > 
OldTotal 0> 
ept :> efirsti 
while not eof (bank) do 
begin 

OldTotal :- OldTotal+l} 

if (eptonil) and (ept*.TagEntry.tag>01dTotal) 
then (* we have found one to correct *) 
begin 

if ept*. TagEntry. entry. dateONonDate 
then (* ie. it is not empty •) 
begin 

(* Replacement Item written to addition file *) 
write(additlon, ept*. TagEntry. entry) ; 
reps :- reps-i-1 
end; 

bank*.date i- NonOatei 

write(TempBank,bank*) i 
get(bank) i 

(* Making the date - NonDate will reiaove the item when 
the laat batch of corrections are processed *) 

now «■ ept J 
ept- t" ept*. next I 
dispose (now) 
end 
else 
begin 

write(TempBank,bank*) i 



C/1 
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get(bank) 
end 

end; 

(* release (now) *) 
writeln(scratch, ' O.K.'); 

(* read TempBank back to bank *) 

write (scratch, 'Copy T^mpBahk to bunk ....'); 

rewrite (bank) ; 

r eset (TempBank ) ; 

while not eof (TempBank) do 

if eof (correction) and (TempBank* .date«NonDate) 
then 

get(TempBank) (* removes corrected itoas *) 
else 
begin 

write(bank, TempBank") ; 
get(TempBank> ; 
end; (* of reading back to bank *) 
writeln(scratch, ' O.K.'); 
r ewr it e (TempBank ) 
end; (* return for more corrections *) 

rewrite(correction) ; 
reset(addition) ; 
while not eof (addition) do 
begin 

(* order additions alphabetically into core in batches of 'stack' *) 
writeln(scratch,'To deal with additions.'); 
if reps>0 
then 

writeln(scratch, 'These include ',reps :5, 
' replacements.'); 

(* mark(now) *) 
n :■ 1; 
new(e) ; 

e*. TagEntry. entry i- addition*; 
e*.next :■ nil; 
efirst :> e; 
get(addition) ; 

while not eof (addition) and (n<stack) dc 
begin 

n I" n+1; 
new (enewp) ; 

enev/p* .TagEntry. entry :- addition*; 
move :> ((enewp*. TagEntry. entry. authors 

> efirst*. TagEntry. entry. authors) or 
( (enewp* .TagEntry. entry .authors 

■ efirst*. TagEntry. entry. authors) and 
( enewp* . TagEnt r y . en t r y . da te 

> efirst*. TagEntry. entry. date)) ) ; 
if not move 

then (* new head of list *) 
begin 
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enewp'^.next :» eflrst; 
efirst enewp 
end 
else 
begin 

{* move pointer ept to correct place, slot in new item *) 
ept :» efirst; 
while (ept'.nextOnil) and 
( (addition*. authors 

> ept". next*. TagEntry. entry. authors) or 
( (addition*. authors 

" ept*. next*. TagEntry. entry. authors) and 
(addition*. date 

> ept*. next*. TagEntry. entcy.date) ) ) do 
ept :« ept". next; 

enewp*. next s- ept*.next; 
ept*. next i> enewp 
end; 
get(addition) 
end; (* n-stack or eo£ (addition) *) 
writeln(scratch, 'Additions processed in this batch • ,n iS); 

(* now read bank to TempBank making additions from core *) 
write(sctatch, "Copy bank to TempBank ....'); 

reset (bank) ; 
rewrite (TempBank) ; 
ept f efirst; 

continue (not eof(bank)) and (iptOnil) ; 
while continue do 
begin 

if ((bank*. authors < ept*. TagEntry. entry. authors) or 
((bank*. authors - ept* .TagEntry. entry. authors) and 
(bank*. date < ept" .TagEntry. entry. date) ) ) 
then 
begin 

write (TempBank, bank*) ; 
get(bank) ; 

continue t> not eof (bank) 
end 
else 
begin 

wr it« (TempBank , ept* .TagEntry . entry) i 
now :b ept; 
ept t- ept*. next; 
dispose (now) ; 
continue :» eptonil 
end 

end; (* of the merging of the cote and the file •) 
while not eof (bank) do 
begin 

write (TempBank, bank*) ; 
get(bank) 
end; 

while eptOnil do 
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begin 

write(TempBank, ept*. TagEntry. entry) ; 
now :■ ept; 

ept :■ ept*. next; 
dispose (now) 
end; 

LastOne :■• bank*; 
(* assigned to give LastOne a starting value *) 
writeln(8cratch,' O.K.'); 

(* now copy back to bank *) 

wrlte(scratch,'Copy TempBank to bank ....'); 
reset (TempBank) ; 
rewrite(bank) ; 
(* release (now) *) 
while not eof (TempBank) do 
■ begin 

same :• ( (TempBank*. authors-LastOne. authors) 
and (TempBank" .titlel"LastOne.titlel) 
and (TempBank" . titlc2-LastOne . ti tle2) 
and (TempBank*. date>LastOne. da te)>'; 
if not same 
then 

write(bank, TempBank*) ; (* rejects duplicates 
LastOne TempBank*; 
get (TempBank) 
end; 

writeln (scratch, ' O.K.'); 
rewrite (TempBank) 
end; .(* return for more additions *) 
end; (* of dependence on PendingTray *) 



(* TO BUILD THE DICTIOHARY •) 
reset (bank) ; 
re8et(dict) ; 
rewrite(addition> ; 
rewrite (PendingTray) ; 
if eof (diet) 
then 
begin 

n I" 0; 

InitialBuild :■ true; 
m :• 0; 
(* mark (here) *) 

uriteln(scratch, 'To build dictionary'); 
while not eof (bank) do 
begin 

n :■ n+1; 
III := m+1; 
build(bank*,n) ; 
<;et(bank); 
ii i.i'heap 
then 
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b«gin 

If- not GotProBCocs 
then 
FcoaCor* 
else 
merge; 
(* celease(here) *) 
(• mark(bere) *) 
InitialBuild s- ttuei 
m I- 0 
end 

end; 

if not GotFromCore 
then 

FromCore 
else 
merge; 
(* release (here) *) 
end I 

if n > 0 then Topltem i" n) 
if not dlistOK then 
begin 

rewrite (dllst) ; 

writeln(diist,'~ Topltem i S)| 

wrlteln(dllst> i 

write (dllst, 'DICTIONARY jnu'et be compiled by running '); 
writelnCdllet.'the HARD COPY option of " bibout." . ' ) ; 
writeln(dliBt)| 
end 

end. (* of program Bibupdate.p *) 



Nick HuRhes 
PUG UK 

c/o Shetlaiultel 
VALLS 
Shetland 
ZE2 9PF 



PASOil 

LIMITED 



laOwtayftoad 
ManchastarMIGOOQ 

1U:0SI' 861 3011 
Wd 061-941 1687 



2n<1 April {"ff. 



Dear Nick 



After our 'phone conversation the other week, I wai rather more relieve^ to 
feel that here In the UK there are other Paacalera at work ant< that pi'nilK 
la viable again. The gap has heen too long, and I wish you well in trying 
to get it going again. I shall try and do what T can and nartlenlarty with 
public domain software, hut at the noncnt, I don't have a great deal of 
time to spare, nor any teleconms equipment Co plug Into ny coqputer. 

I enclose a cheque for 9 pounds for subscription. On tbe question ot nacV 
numbers, I have copies of 12-1^, and any subiiequent or prevtnun Ihau^s 
would be very welcome. I would have thought that for 17-21 which you 
already have, it would be worth while putting a note In the next Issue to 
see how many people want them, and then have your printer print ade<iuate 
copies In total. Much better than spending your time collating everyone*' 
needs and doing Individual photocopies of hlta and pieces. Perhaps If 
other people were sble to lend you some of the elder copies, the sane could 
be done. I'd certainly lend you 12-16 If you like. After all. Its the 
Information that matters, not whether the Issue is an original or not 
unless we have any collectors among u8. Anyway, mark me down for any back 
lasues you can get your handa on, pleaac. 

I am now using Pro-Pascal from Prospero Software aa my ma lor progranmlnv. 
tool, aa well of course as Wordstar to compose programa and write letters. 
The hardware la OEM kit from Slrton Computers In Purley, by the nanc of 
Mldaa and Is In essence sn Integrsnd 10-slot ftlOO case with P!!TI, tthaca 
IEEE SlOO carda (MPU-I)0,FDC-2,64KDR and VIO boards) glvine 6Ak and 
Z80A with CP/H, plua 2*YE-DATA WAD 1Mb drives. The printer Is a Oune (a 
luxury really), and a Volker-Cralg ¥0404 completes the outfit. 

I will try and compose a critique of Pro-Pascal as soon as possible, hut 
version 1.4 Is due out soon with A byte longreals anon<; other nooHles. T 
have written to Charles Poster of Paseal/Z Uaer Croup asking If he or his 
contributors would permit the distribution of any of their "ascal aourees 
to PUGUK members appropriately modified to PS A142, or If Indeed there Is 
any other Public Pascal around In the States. 1 think we ou<>ht to be 
prepared to reclorocate on this, don't you? 

In converting from programming mainly on maintrames in Fortran and havine a 
nodding acquaintance with Cobol, Basic and other laneua^es, there are times 
when even Standard Pascal has Its limitations. Therefore, T've thoutht of 
two ways of Improving the language. Aa PI'G may have so-ne Influence with 

DHCCKMS: J.L0QSO0M. R.L.COMai 



Rmd nEnglwd msao 
VAT N« MS 37S4 as 



the powers that be, I've taken the liberty of tncludlnf the •uttaettooa - 
by all neans put then in a newa-lettar If jrou like. I don't belteY* In 
trying Co perauade compiler-writers to augaent their coapilera as their Job 
la to Implement the standard. If the language is to grow, and If any auch 
need is Identified, then it's the standard that must aature. Now BS 6192 
is published, it will be some time before any further thought is applied to 
the subject I expect, if ever, so perhapa now la the time to ••• If anyone 
is interested. 

Anyway, the best of luck 



John R l.ogsdon 



Tenga«-ln-«haak Paacal Language anhaneaiMnta. 



a) Structured constants. 

Frograa aake-up to be for example : 

PROGRAM example; 
CONST onehuqdred-ItM): 

etc 

TTPE 

8calartype«(cof f aa , Jaa, bread ,taa , blaeut t , aulc Ida ) ; 

astypa>RE0ORD 

aslnteger; 
b,eichar; 

d:array[0. .3] of integer; 
f :scalartype; 
gisa^ of scalartype; 
htarray[ 1^.20] of char 
WD: 

* tc 

TABLE axliextvpa' 

onctnindrad ; 'a' .ehr(20) , (0, 2S,S0.7S) , Jaa, 
[eof fec,tea,bread| , 'eholcaterol' : 

VAR exvariaxtypesdlsplayltehar; 

BBniN 
cxvar:-exi ; 
diaplayl:-axl.h[4]; 

ate 

Note the use of the 'chr' function to set up unprintable characters, 
the ahaence of any dellm'iter other than those already used in Pascal 
and the acceas of a constant array element. There is no resson why 
'ord' should not alao he inclAided ao that portability is enhanced. 
This syntax follows closely on that of Pascal as it is and involves no 
ambiguity la type declaration Implicit where atrueturad eonatants are 
declared' In the constant section aa In aoae Implementations. ' Pointers 
declared in the corresponding type declaration nay be set to whatever 
llktcmal value represents nil, however they arc named. and uncompleted 
arrays of char initialized to spacea. 

Such a feature will provide genuine structured read-only constants 
without the ugly initistion presently necessary In Pascsl. In fsct, 
in practice it is eaaier to put recorda for initialisation in a 
parameter file and read them in, which does, not seem sn elegsnt 
solution. For micros with resticted memory, Initialiaing a record 
from constants needs up to two ceplaa of every element - one dvnamlc 
and one In the constant area, which la rather waatcful of snace. 



b) Type-chaage function. 



Syntax to be, for cSnmple: 

PROGRAM another; 

CONST etc 

TYPE Bcore>( t Irst , Mcond , third , fourth) ; 
f rul t-f applei , pea r« , orange* , grapea) : 

VAR thl8score:acore;thlBfmlts fruit; 

BECIN 

{calculate thlascore aoachow) 
chief rult :-f rult( thlaaeorc) ; 

etc 

This facility will provide a logical conpletlon to the built-in 
functions 'ord'/chr' and provide a much -more -readable alternative to 
the use of variant records. Although there Is no reason why the method 
should not he available for records If the matching of record lengths 
were entirely the programmers responsl^illlty, there Is an objection In 
that the internal repreaentatlon of varlablaa will be aachlna- 
dependent. I envlaage this type-change fiinctlon purely for acalar 
variables between scalara and perhapa for pofntars batwaen polntara. 
]tt is of course really a aeehanlap to eauae th« eompllar not to cheek 
type*. 



(This facility Is similar to on* avallabl* in AARC Pa*cal.8000 for the 
IHM ^0/370 aerlea, and attributed to Kludgeaaua) 



If any readers have any eoanent* for or agalnat, parhapa PUG can help to 
air views? 



Name: Nr P A C Herring 



Addr*M: NAPAC 

17 Market Square 
Leighton Buzzard 
Bedfordshire 
LU7 7EU 

Phone : 0525 . 378237 

Systems Uaed 

(I) Apple (II) UCSD Pascal. 

(II) To be delivered December 19B2: Burroughs B21-S (384 K Byte). 
Pascal ISO draft S. 



Special Intsrasts 

Business systaav. Particularly rapid access to unsorted data iteas. Data 
base aananeaent system. 



Information Pleaae 

We would be Interested In knowing of a Pascal conpller to Interla ISO standard 
or UCSD for Burroughs B19S5 with O.SM Byte working store. Manufacturer doea 
not support Pascal for. 



RobinMn Synsrtw 
Enofneerfng Llmlteil^ 
RsdLion Howe, St Mory'i Street, 
Poinswick.Gl6«QR 
Telephone: ((M52) 813699 
VAT Reghlration: 303 3124 28 



lUith Compliments 



4. T^aavfcs. 




ZJC/VH 




DIVISIOH OP IHTORMATKW TECHKOLOOY * COKRITIliO 
Dtfiitmtnt InAimf 

NATIONAL PHYSICAL LABORATORY 
Teddinflton MiddiMM 1W11 OLW 

Ttl«2e23M TdltgMmlwIiytabTMdliigMi 

T*lvliomM-a773222 M 3977 



Yourn 
OurnlMMio* 



Dear Pascal User 



Please find enclosed details regarding Version 3.1 of the Pascal Talidation 
Suite which was released on the first of October 1982. Should you Hish to 
receive a copy of the suite, please fill in the enclosed applloation fora 
for a licence and send it together with youtiMilttanoe tot 

Dr Z J Ciechanowicz 

Division of Information Technology A CoBputing 

Nationail Physical Laboratory 

Teddinston 

Middlesex mi1 OLW England 

On receipt of the form and remittance we will send a aagnetic tape 
containing the suite. 

The coat of the package is CIOO sterling (+15Jt VAT for UK luen) and 
cheques should bs made payable to "Ihe national Thysioal laboratory" 
quoting our reference minber HPS ^01. 



Tours sincerely 



Z J CIBCnUiOHICZ 

PS When rsquesting th* suit* pleas* snnply th« taps foiaat yon rsqulrai 

i.e. 1600/800 b.p.i. 
ISO/eBCDIC code 

He generally writs our tapes with flzsd length bloola, 15 rseorda per block, 
80 characters per rseord. 



Council for Educational Tedmology 

S Oevooakire SiKM, Loodoa WIN 2BA TW^Mm' 01-636 4186 C«amMa; Profeiaor J C Wcu, cu Oiaw. O Hubbwd 



Mr N Hughes The Burleigh Cmtra 

Pascal users' Group (OK) Wellfield Road 

Shetlandtal HATFIELD 

••M^ Berts. ALIO OBZ 
Shetland ZE2 9PP 

Tell Hatfield 74497 

18th Bacasbur 1981 



Dear Nick 

CBT TELESOFTWARB PROJECT 

nwnk you for your letter of 6th Decei^r. 

I think you oust have got the wrong lapresslon from lettar of • 3rd Decaiter. 
We certainly do not want to see a different telesoftware format for PASCAL. 
As I understand it, the only problem with the current format is the TAB 
character which lias outside the PRBSTBL character set. You may be interaated 
in our recant extensions to the format (copy enclosed) lAlch overcome this. 

As far as including PASCAL programs in our library Is concerned, all I am 
saying is that we need to learn how to walk before we can run. He are keen to 
include programs in languages other than BASIC, Including PASCAL, but need to 
be sura thsra ara people who can racaiva them on our system and will find thea 
useful, before putting thea 19. 

If you know of PASCAL progrzuns which will run on the microa most ussd in 
education, ie, 380Z, Apple, Pet, Acorn and IRS 60, I would be interested in 
racaivlng details. 

Yours sincerely 



Chris Knowles 

Talaaoftware Project Manager 



Eno. 



COUNCIL FOR BOUCATIONAL TBCHNOLOOY FOB THB UNITBD KINGDOM 



NPL9 

National PhysicaL Laboratory^ 



National Physical Laboratory 
Teddirigton 
Middlesex TW 11 OLW 
Telephone 01 ■ 977 3222 - 
Telex 262344 



Pascal Compiler Validation Suite 



NPL issued version 5.1 of the above suite of test programs on 1 October 1982. 
These programs peripit a user to check the compliance of a Pascal compiler and 
run-time system with the ISO standard for Pascal (ISO 7185, also ES 61 S2). The 
new suite is an extensive revision of version 3-0 and the work has been under- 
taken in conjunction with Professor A.K.J. Sale of the University ofTasmania. 
Subsequent revisions to the test suite are likely to be of a minor nature. 

The British Standaras Institution will shortly be launching a pilot validation 
service based upon the test suite together with other material. 

The test suite consists of about 17 300 lines of Pascal programs plus 
additional comments on each of the 553 test programs. The programs themselves 
are divided into a number of classes as follows: 

162 programs checking that the features of the Standard are available; 

157 programs checking that illegal constructs are rejected by a compiler; 

82 programs checking the error-detection capability of a Pascal system; 

60 programs checking the quality of an implementation; 

40 programs cheeking for Level 1 Pascal ('conformant arrays'); 

16 programs checking the variations permitted by the Standard; 

15 programs checking for features defined for each implementation; 

3 programs checking for extensions. 

An application form for a licence to use the suite is on the other side of this 
notice. 



E.A. Wichmann, 
Z.J. Ciechanowicz, extension 3977, 
For £SI, J. Hatton-Smooker, telephone 0442 3111 



APPLICATION FOR LICENCE TO USE VALIDATION SUITE FOR PASCAL 



Name and address of requester 
(company name if requester is 

a company) 



Maine and address to which 
information should be sent 
(write 'as above' if the same) 



Signature of requester 
Date 



In making this application, which should be signed by a responsible person in 
the case of a company, the reauester agrees that: 

(a) the copyright subsisting in the validation suite is recognized as 
being the property of the British Standards Institution and A.H.J. Sal'e; 

(b) the requester will not distribute machine- readable copies of the 
validation suite, modified or unmodified, to any third party without 
permission, nor make copies available to third parties. 

In return, the copyright holders grant full permission to use the programs and 
documentation contained in the validation suite for the purpose of compiler 
validation, acceptance tests, benchmarking, preparation of comparative reports, 
and similar purposes, and the provision of listings of the results of 
compilation and execution of the programs to third parties in the course of the 
above activities. In such documents, reference shall be made to the original 
copyright notice and the source. 



OFFICE Signed 

USE 

ONLX 



On behalf of A.H.J. Sale and 

the British Standards Institution 



